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t*.  ABSTRACT 


An  automated  general  purpose  system  for  analysis  is  presented. 
This  system,  identified  by  the  acronym,  "MAGIC  III"  for  Matri  • 

Analysis  via  Generative  and  Interpretive  Computations,  is  an  extension 
of  the  structural  analysis  capability  available  in  the  initial 
MAGIC  System.  MAGIC  III  provides  a  powerful  framework  for  imple¬ 
mentation  of  the  finite  element  analysis  technology  and  provides 
diversified  capability  for  displacement,  stress,  vibration,  a, id 
stability  analyses. 

Additional  elements  have  been  added  to  the  MAGIC  element  library 
in  this  phase  of  MAGIC  development.  These  ere  the  solid  elements; 
rectangular  prism,  tetrahedron,  triangular  prism,  symmetric 
triangular  prism,  and  triangular  ring  (asymmetrical  loading),  Also 
included  are  the  symmetric  shear  web  element  and  a  revised  quadri¬ 
lateral  thin  shell  element.  The  finite  elements  listed  include 
matrices  for  stiffness,  mess,  prestrain  load,  thermal  load,  distri¬ 
buted  mechanical  load,  pressure  and  stress. 

Documentation  of  the  MAGIC  III  System  is  presented  in  three 
parts;  namely,  Volume  I:  Engineer's  Manual,  Volume  II:  User's 
Manual  and  Volume  III:  Programmer's  Manual. 
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Mr.  Stephen  Jordan,  Program  Manager. 

This  report,  "MAGIC  III:  An  Automated  General  Purpose 
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"Volume  I:  Engineer’s  Manual”,  "Volume  11$  User’s  Manual", 
and  'Volume  III:  Programmer’s  Manual".  The  manuscript  for 
Volume  III  was  released  by  the  author  in  January  1972  for 
publication. 
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ABSTRACT 


An  automated  general  purpose  system  for  analysis  is 
presented.  This  system,  identified  by  the  acronyn  "MAGIC  III" 
for  "Matrix  Analysis  via  Generative  and  Interpretive  Computa¬ 
tions,"  provides  a  flexible  framework  for  implementation  of 
the  finite  element  analysis  technology.  Powerful  capabilities 
for  displacement,  stress  ^nd  stability  analyses  are  Included 
in  the  subject  MAGIC  III  System  for  structural  analysis. 

The  matrix  displacement  method  of  analysis  based  upon 
finite  element  idealization  is  employed  throughout.  Sixteen 
versatile  finite  elements  are  incorporated  in  the  finite 
element  library.  These  are:  frame,  shear  panel,  triangular 
cross-section  ring,  toroidal  thin  shell  ring,  quadrilateral 
thin  shell,  triangular  tnin  shell,  trapezodlal  ring,  trian¬ 
gular  plate,  incremental  frame,  quadrilateral  plate,  tetrahedron, 
triangular  prism,  rectangular  prism,  symmetrical  shear  web, 
asymmetric  triangular  cross-section  ring  and  high  aspect-ratio 
qu&drilataral  thin  shell  elements.  These  finite  element  repre¬ 
sentations  include  matrices  for  stiffness,  consistent  mass, 
incremental  stiffness,  thermal  stress,  thermal  load,  distributed 
mechanical  load,  and  stresses. 

The  MAGIC  III  System  for  structural  analysis  is  presented 
as  an  integral  part  of  the  overall  design  cycle.  Considera¬ 
tions  in  this  regard  include,  among  other  things,  preprinteu 
input  forms,  automated  data  generation,  data  confirmation 
features,  restart  options,  automated  output  data  reduction  and 
readable  output  displays. 

Documentation  of  the  MAGIC  III  System  is  presented  in 
three  parts j  namely,  Volum  I:  Engineer's  Manual,  Volume  II: 
User's  Manual  and  Volume  III:  Programmer's  Manual.  The  subject 
Volume,  Volume  III,  is  designed  to  facilitate  implementation, 
operation,  modification,  and  extension  of  the  MAGIC  III  System. 
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SECTION  I 


INTRODUCTION 


A  Structural  Generative  System  has  been  developed  and 
inserted  into  FORMAT  II  (Reference  2)  for  the  purpose  of 
generating  structural  matrices  for  use  by  FORMAT  II.  The 
insertion  of  a  Structural  Generator  into  FORMAT  II  resulted 
in  a  computer  program  retaining  ease  of  implementation  and 
use,  yet  offering  diversified  capabilities. 

Machine  compatibility  has  been  retained  by  the  complete 
use  of  FORTRAN  IV  in  the  development  of  the  structural  Genera¬ 
tive  System.  The  absence  of  machine  or  assembler  language 
from  every  portion  of  the  program  eliminates  the  problems 
of  machine  dependency  and  implementation  difficulty. 

Input  to  the  Structural  Generative  System  is  accomplished 
by  filling  in  preprinted  structural  engineering  oriented 
input  sheets.  The  combination  of  these  sheets  and  the  normal 
matrix  abstraction  instructions  of  FORMAT  II  allows  minimal 
training  for  use  of  the  program,  thus  decreasing  the 
possibility  of  input  errors. 

The  program  is  capable  of  restart  at  any  point  in  the 
abstraction  instruction  sequence  stipulated  at  the  discretion 
of  the  User.  Input  data,  intermediate  results,  final  results 
or  any  matrix  whatsoever  may  be  automatically  saved,  by  use 
of  the  proper  instruction,  and  used  as  a  starting  point  or 
new  input  to  subsequent  applications  on  continuing  or 
independent  projects. 

The  MAGIC  System  consists  of  a  total  of  477  subroutines  of 
which  296  form  the  Structural  Generative  System.  The  477  sub¬ 
routines  can  be  logically  designed  into  an  overlay  structure 
which  reflects  the  optimum  use  of  available  storage  in  relation 
to  the  longest  link  so  that  the  program  will  maintain  respectable 
execution  efficiency.  The  Structural  Generative  System  requires 
a  minimum  of  13,000  decimal  words  of  work  storage  which  is  assigned 
to  an  uniebeled  common  block.  A  minimum  of  eight  external  storage 
units  available  to  the  FORMAT  II  System  are  required  for  use  of 
the  Structural  Generative  System,  including  at  least  one  assigned 
to  the  Master  Input  FORMAT  function,  one  assigned  to  the  Master 
Output  FORMAT  function,  and  four  assigned  to  the  Utility  FORMAT 
function.  The  other  two  units  are  necessary  for  intermediate 
matrix  results  and  for  an  instruction  data  set.  The  MAGIC  System 
needs  48,0 CO  decimal  words  of  internal  storage  to  execute  on  an 
IBM  360/6*5  using  a  91  link  OVERLAY  structure  and  a  blank  common 
area  of  18,000  decimal  words,  (not  considering  internal  core 
necessary  for  1/0  buffers  and  OS  system  routines)..  Using  the 
three  level  OVERLAY  of  CDC  and  a  blank  common  area  of  13,000  words, 
the  MAGIC  System  can  execute  using  34,698  decimal  (103,612  octal) 
words  of  internal  storage  on  the  CDC  6400,  not  considering  internal 
storage  for' 1/0  buffers  and  SCOPE  system  routines  necessary  to 
execute  the  OVERLAY  program. 
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The  MAGIC  System  has  been  implemented  on  the  IBM  360/65 
under  direct  machine  control,  but  some  installations  may  not 
be  able  to  execute  MAGIC  under  direct  machine  control.  This 
was  the  case  when  the  MAGIC  I  System  was  implemented  on  the 
IBM  7090. 

The  number  of  subroutines  contained  in  the  FORMAT  II 
program  necessitated  the  use  of  SUBSYS,  a  software  package 
developed  by  Westinghouse,  which  improved  the  loading 
capabilities  of  IBSYS  on  the  IBM  7090/9^.  In  addition  to 
allowing  the  program  to  be  loaded,  SUBSYS  allowed  the  program 
overlay  tape  to  be  saved,  thereby  improving  execution  time. 
Programs  may  be  stacked  on  this  overlay  tape.  Taking  advantage 
of  this  fact,  FORMAT  II  with  the  Structural  Generative  System 
insertion,  was  actually  three  programs  executed  automatically 
with  no  intervention  by  IBSYS.  The  first  program  consisted 
of  the  FORMAT  II  Preprocessor,  the  second  consisted  of  the 
FORMAT  II  Execution  Monitor  and  the  third  contained  the 
Structural  Generative  System.  Although  the  Structural 
Generative  System  was  actually  a  separate  program  when 
operating  under  SUBSYS  control  on  the  IBM  7090/9^ ,  it  is 
activated  and  controlled  as  a  ..ormal  User  Module  under  the 
FORMAT  II  System.  Explicitly,  the  Structural  Generative  System 
is  the  fourth  User  Module  (USER04)  available  under  FORMAT  II. 
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SECTION  II 


COORDINATION  OF  STRUCTURAL  GENERATIVE  SYSTEM  WITH  FORMAT  II 


A.  DETAILED  ANALYSIS  OP  USER04  INSTRUCTION 

1.  Input  and  Output  Matrix  Position  Functions 

The  Structural  Generative  System  may  have  as  many 
as  fifteen  actual  output  matrices  and  require  as  many  as 
four  actual  input  matrices.  The  basic  form  of  the  USER04 
instruction  may  be  represented  as  follows: 

0MP1,  0MP2,  0MP3,  OM?ll,  0MP5,  OMP6,  0MP7,  0MP8, 

OMP9 j  0MP10 ,0MP11,  0MP12,  0MP13,  OMP14,  0MP15  = 

IMP1,  IMP2,  IM?3,  IMPil  .USER04.  ; 

where  OMP  is  x’ead  as  output  matrix  position  and  IMP  as  input 
matrix  position.  All  matrix  positions,  whether  input  or 
output,  must  be  present.  They  may  contain  matrix  names  or 
be  blank,  but  there  must  be  nineteen  matrix  positions  re¬ 
presented  by  the  appropriate  number  of  commas.  Blank  matrix 
positions  are  discussed  in  the  next  section.  The  output  matrix 
positions,  if  nonblank,  will  contain  the  following  matrices 
upon  exit  from  the  Structural  Generative  System: 


0MP1 

- 

copy  of  input  structure  data  deck 

0MP2 

- 

revised  material  library 

0MP3 

interpreted  input  (structure  Input 
data  as  stored  after  being  read 
and  interpreted) 

OMPH 

external  system  grid  point  loads 
and  load  scalar  matrix 

0MP5 

— 

transformation  matrix  for  applica¬ 
tion  of  boundary  conditions 

0MP6 

— 

transformation  matrix  for  assembly 
of  element  matrices 

0MP7 

*“ 

element  stiffness  matrices  stored 
as  one  matrix 

0MP8 

element  generated  load  matrices 
stored  as  one  matrix 

0MP9 

element  stress  matrices  stored  a3 
one  matrix 

OMPIO 

— 

element  thermal  stress  matrices 
stored  as  one  matrix 

0MP11 

- 

element  incremental  stiffness 
matrices  stored  as  one  matrix 
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0MP12  -  element  mass  matrices  stored  as 

one  matrix 

0MP13  -  structural  system  constants  stored 

as  one  matrix 

0MP1*1  -  element  matrices  in  compressed 

format  stored  as  one  matrix 

0MP15  -  prescribed  displacement  matrix 

The  input  matrix  positions,  if  nonblank  must  contain 
the  following  matrices: 

IMP!  -  structure  data  deck  (this  would  be 

a  previously  generated  matrix  saved 
in  0MP1) 

IMP2  -  Interpreted  input  (this  would  be  a 

previously  generated  matrix  saved 
in  0MP3  used  for  restart) 

IMP3  -  existing  material  library  (this 

would  be  a  previously  generated 
matrix  saved  in  CMP2) 

IMP4  -  displacement  or  stress  matrix  to 

be  used  for  stability  analyses 
(the  stress  matrix  must  have  been 
generated  by  the  structural  abstraction 
instruction  .STRESS.) 

It  should  be  noted  that  the  following  matrix  positions 
are  called  matrices  only  in  the  sense  that  all  input  and  output 
entities  are  considered  matrices  by  FORMAT  II  -  0MP1,  IMP2, 
0M?3,  0MP14,  IMP1,  IMP2  and  IMP3- 

It  is  important  to  note  that  0MP11!  is  mutually 
exclusive  with  0MP6,  0MP7,  0MP8,  0MP9,  OMPIO,  0MP11,  and  0MP12. 
In  order  to  retain  compatability  with  the  MAGIC  I  system  and 
eliminate  redundant  execution  time,  the  following  rules  must 
be  observed. 

(a)  If  OMPlH  is  suppressed  then  0MP6,  0MP7,  CMP8, 
0MP9,  OMPIO,  0MP11,  and  0MP12  will  be  generated  according  to 
their  definition  in  Part  A.l  of  Section  II,  If  this  is  the 
case  then  it  is  assumed  the  user  is  using  MAGIC  I  abstraction 
instructions  to  solve  his  problem. 

(b)  If  OMPl^  is  not  suppressed  then  0MP7»  0MP8, 

0MP9j  OMPIO,  0MP11  and  0MP12  will  serve  only  as  indicators 
to  the  .USERO^,  instruction  for  generation  or  non-generation 
of  their  respective  element  matrices.  Since  no  matrices  will 
be  generated  in  0MP6  through  0MP12  (if  OMPl^  is  not  suppressed) 
they  should  never  be  referenced  ir<  subsequent  abstraction 
instructions. 
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2.  Suppression  Option 

Incorporated  into  the  Structural  Generative  System 
is  an  option  to  suppress  the  generation  and  output  of  any  of 
the  output  matrices  and  also  to  indicate  the  absence  of  any 
of  the  input  matrices.  This  option  is  indicated  to  the 
Structural  Generative  System  by  the  absence  of  a  matrix  name 
in  the  desired  position  in  the  .USERQlJ.  instruction.  A  matrix 
name  is  considered  to  be  absent  if  the  matrix  position  con¬ 
tains  all  blanks  or  the  character  length  of  the  name  is  zero. 
For  example,  an  instruction  of  the  form:  ,  ,INTIN.P,  LOADS,  TR, 
TA,  KEL,  PEL,  SEL,  SZALEL,,,,,  «  ,  ,MATLB1,  .USEROU . ;  would 
cause  suppression  of  the  copy  of  the  data  deck,  the  revised 
material  library,  the  element  incremental  stiffness  matrices, 
the  element  mass  matrices,  the  structural  system  constant 
matrix,  the  compressed  element  matrix  and  the  prescribed 
displacement  matrix.  The  instruction  also  indicates  that 
there  is  no  input  data  deck  on  tape,  (directing  the  Structural 
Generative  System  to  read  data  from  cards),  no  interpreted  data 
on  tape  and  no  input  displacements  or  stresses.  It  should  be 
noted  that  certain  sections  of  the  data  deck  are  necessary  for 
the  generation  of  each  of  the  output  matrices  and  that  error 
checking  is  done  to  determine  if  the  required  sections  are 
present.  A  table  of  the  required  data  sections  for  generation 
of  each  matrix  appears  in  the  User’s  Manual.  Accordingly, 
error  checking  is  invoked  for  the  input  matrix  positions  to 
determine  if  ambiguous  or  conflicting  input  indications  have 
been  made. 

Internally,  the  logic  flow  of  the  suppression  option 
is  controlled  by  Inserting  key  characters  for  suppressed 
matrices.  Upon  detection  of  a  suppressed  matrix  by  Subroutine 
INST,  a  matrix  name  of  the  form  ////XX  is  inserted  into  that 
matrix  position.  -The  four  slashes  are  Inserted  for  recognition 
by  the  Structural  Generative  System  of  a  suppressed  matrix 
and  the  last  two  positions  may  each  contain  the  digits  0-9 
assigned  sequentially  starting  from  00  for  each  suppressed 
matrix  encountered.  The  last  two  positions  in  the  Inserted 
name  for  suppressed  matrices  ensure  that  each  suppressed  matrix 
name  will  be  unique,  thereby  eliminating  inconsistencies  in 
the  FORMAT  II  Preprocessor. 
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Suppressed  input  matrices,  i.e.  those  occurring  to 
the  right  of  the  equal  sign  in  the  input  .USEROU,  abstraction 
instruction,  are  recorded  on  NDAfA,  the  data  set  reserved  for 
card  input  matrices,  as  null  matrices  to  satisfy  FORMAT  II 
Preprocessor  input  matrix  existence  requirements.  This 
operation  is  accomplished  by  subroutine  MATSUF. 


B.  USE  OF  FORMAT  II  DATA  SETS 

1.  Master  Input  and  Master  Output  Use  for  Material  Library 

References  to  the  Material  Library  are  indicated  by 
output  matrix  position  two  and  input  matrix  position  three  in 
the  .USER04.  abstraction  instruction.  Retention  of  a  newly 
generated  or  revised  Material  Library  Is  governed  solely  by 
use  of  the  SAVE  abstraction  instruction  at  the  discretion  of 
the  User.  If  retention  is  desired,  the  matrix  name  in  output 
matrix  position  two  must  appear  in  a  SAVE  abstraction  instruction, 
in  which  case  it  will  be  placed  on  a  Master  Output  tape.  If 
a  non-blank  matrix  name  appears  in  input  matrix  position  three, 
the  Master  Input  Tape  will  be  searched  for  that  name. 

Usage  and  generation  of  the  Material  Library  Is 
controlled  by  the  three  legal  combinations  of  suppression  of 
output  matrix  position  two  and  input  matrix  position  three. 

If  the  matrix  name  in  output  matrix  position  two  is  non-blank, 
but  input  matrix  position  three  is  suppressed,  a  new  Material 
Library  will  be  generated'  and  used.  If  both  involved  matrix 
positions  are  non-blank,  the  old  Material  Library  will  be 
located  on  the  Master  Input  tape,  will  be  revised,  stored  as 
the  matrix  named  in  the  specif led  output  position,  and  then 
this  revised  Material  Library  will  be  used.  If  output  matrix 
position  two  is  suppressed  and  input  matrix  position  three  is 
non-blank,  then  the  named  input  Material  Library  will  be  used: 
Suppression  of  both  involved  matrix  positions  results  in  an 
error  condition. 

Since  the  material  library  is  stored  under  a  matrix 
name  on  Master  Output  tapes,  and  also,  therefore  Master  Input 
tapes,  any  other  matrices  may  also  be  saved  on  the  name  tape, 
including  other  Material  Libraries. 


2.  Instruction  Input  Data  Sets 

An  instruction  input  data  set  is  an  externr.1  storage 
unit  that  contains  at  least  one  of  the  non-blank  matrices 
named  In  input  matrix  positions  one,  two,  three  or  four  in 
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the  .USERO1!.  abstraction  instruction.  The  Structural  Genera¬ 
tive  System  conforms  to  all  the  rules  of  FORMAT  II  with 
regard  to  use  of  instruction  input  data  sets.  All  searching, 
reading,  and  rewinding  is  accomplished  by  use  of  the  FORMAT  II 
data  set  handling  subroutines  EUTL1-EUTL9.  No  attempt  is  ever 
made  to  write  on  ar.  instruction  input  data  set. 


3*  Instruction  Output  Data  Sets 

An  instruction  output  data  set  is  an  external  storage 
unit  which  has  been  designated  by  the  FORMAT  II  Preprocessor 
to  contain  at  least  one  of  the  non-blank  matrices  in  output 
matrix  positions  one  to  x'ifteen  in  the  .USERO1!.  abstraction 
instruction.  The  Structural  Generative  System  conforms  to 
all  rules  of  FORMAT  II  with  regard  to  instruction  output  data 
sets  by  using  the  FORMAT  II  data  set  handling  subroutines 
EUTL1-EIITL9  to  write  all  matrix  headers,  matrix  trailers, 
data  set  trailers  and  end  of  files  on  instruction  output  data 
sets.  All  matrices  are  stored  by  column  in  the  required  record 
format.  No  attempt  is  ever  made  by  the  Structural  Generative 
System  to  rewind  an  instruction  output  data  set. 


!j.  Scratch  Data  Sets 

Scratch  data  sets  are  external  storage  units  that  have 
been  assigned  by  the  FORMAT  II  System  to  the  Structural  Genera¬ 
tive  System  to  be  used  as  temporary  storage  areas.  There  are 
no  reading,  writing  or  rewinding  rules  imposed  on  scratch  data 
sets  by  the  FORMAT  II  System.  The  required  four  scratch  data 
sets  are  assigned  to  the  following  functions  by  the  Structural 
Generative  System: 

SCRATCH  DATA  SET  1  -  1st  use  -  external  storage  areas 

for  report  form  input  preprocessor 

2nd  use  -  contain  structure 
control  information  including 
system  orders,  boundary  conditions 
and  system  print  operations 

SCRATCH  DATA  SET  2  -  1st  use  -  contain  temporary 

copy  of  direct  input  structure 
data  deck 

2nd  use  -  contain  generated 
element  matrices  in  compact 
form 
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SCRATCH  DATA  SET  3 


1st  use  -  contain  temporally 
copy  of  actual  input  deck 

2nd  use  -  contain  elemc-nt 
input  data  after  reading  and 
interpretation 

SCRATCH  DATA  SET  4  -  1st  use  -  external  storage 

area  for  report  form  input 
preprocessor 

2nd  use  -  contain  input 
loads  matrix 

3rd  use  -  contain  input  dis¬ 
placements  or  input  sti'esses, 
if  any 
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SECTION  III 


ORGANIZATION  OP  STRUCTURAL  GENERATIVE  SYSTEM 


A.  BASIC  LOGIC  FLOW 


The  Structural  Generative  System  has  three  basic  phases 
of  operational  flow;  the  input  phase,  the  clement  matrices 
generation  phase,  and  the  output  phase.  The  input  phase  consists 
of  reading,  interpreting  and  storing  the  information  contained 
in  the  structure  data  deck.  From  the  stored  input,  the 
element  matrices  selected  are  generated  in  the  second  phase. 

Phase  three  outputs  all  non-suppressed  matrices  indicated  by  the 
.USER04.  abstraction  instruction  in  output  matrix  position 
six  through  twelve,  if  output  matrix  position  fourteen  has 
been  suppressed,  or  outputs  only  output  matrix  position 
fourteen  if  it  was  non-suppressed.  Output  matrix  positions 
one  through  five  and  thirteen  and  fifteen  are  generated 
directly  from  the  input  structure  data  deck  and  for  this 
reason  are  actually  output  during  the  first  or  input  phase. 
Subroutine  US04  controls  the  three  logical  phases  by  directly 
controlling  subrouting  US04A  which  controls  the  input  phase 
and  US04B  which  controls  the  generation  and  output  phases. 
Normally,  the  basic  logical  flow  of  the  Structural  Generative 
System  would  be  sequentially  through  the  three  phases,  however, 
by  use  of  the  suppression  option,  it  is  possible  to  completely 
skip  a  given  phase.  The  actual  logic  flow  of  the  system  is 
created  by  subroutine  LOGFLO  as  determined  by  the  .USER04. 
abstraction  Instruction.  For  example,  if  the  .USER04 . 
instruction  was  written  such  that  only  the  boundary  conditions 
had  changed  and  the  remainder  of  the  necessary  matrices  were 
saved  from  a  previous  application  as  indicated  by  the  suppression 
option,  subroutine  LOGFLO  would  eliminate  the  second  and 
third  phases. 


B.  INPUT  PHASE  LOGIC  FLOW 

The  logic  flow  of  the  input  phase  is  determined  by  the 
type  of  input  encountered.  The  two  types  of  input  are  report 
form  input  and  Interpreted  input. 


1.  Report  Form  Input 

The  location  of  the  input  data  deck  is  determined  by 
examining  IMrl  of  the  input  .USER04.  abstraction  instruction. 

If  this  input  position  was  blank,  then  the  data  deck  is  assumed 
to  be  on  NFIT,  the  system  input  unit.  If  IMP1  contained  a 


non-blank  matrix  name,  then  the  input  data  deck  exists  as  a 
matrix  and  the  original  card  form  deck  is  reconstructed  by 
subroutine  INDECK. 


Report  Form  Input  is  a  highly  flexible,  engineering 
oriented  type  of  input  for  the  Structural  Generative  System. 
From  a  programming  viewpoint,  report  form  input  allows  ease 
of  use  by  the  Analyst  and  by  translation  allows  logical 
readability  Dy  the  program. 

Encountering  a  report  form  input  deck  causes  the  input 
phase  to  pass  control  to  the  Report  Form  Input  Preprocessor. 
Basically,  the  report  form  input  preprocessor  translates  the 
flexible  report  form  input  deck  into  a  sophisticated  direct 
input  deck.  Translation  is  accomplished  by  two  steps  con¬ 
trolled  by  subroutine  REFORM'. 


The  first  step  is  to  read  and  store  the  report  form 
input  deck.  This  step  is  accomplished  by  subroutine  PHASE1 
with  support  by  subroutines  LATCH  and  FORMIN.  PHASE1  controls 
all  storage,  both  Internal  core  storage  and  external  storage 
on  scratch  data  sets  one  and  four.  LATCH  performs  label 
matching  tests  to  determine  the  various  sections  of  input  and 
FORMIN  reads  all  table  form  input,  sections;  non-table  form 
input  sections  are  read  directly  in  PHASE1. 


The  second  step  in  processing  a  report  form  input  deck 
is  to  merge  the  data  stored  by  the  first  step  into  a  direct 
data  deck.  These  two  operations  are  performed  by  subroutine 
PHASE2  supported  by  subroutine  OPEN.  The  information  stored 
by  the  first  step  is  merged  into  a  compact  direct  data  deck 
by  PHASE2  and  output  on  scratch  data  set  two.  The  OPEN  sub¬ 
routine  aids  PHASE2  by  locating,  in  any  order  designated  by 
PHASE2  the  input  sections  stored  on  scratch  data  sets  one  and/or 
four.  At  this  point,  a  complete  direct  data  input  deck  is 
resident  on  scratch  data  set  two  and  control  returns  to  USOtA. 
Once  a  direct  data  deck  is  resident  on  scratch  data  set  two, 
reading,  interpreting  and  storage  is  controlled  by  subroutine 
INPUT  with  each  input  section  handled  as  Indicated  by  the 
following  table: 


INPUT  SECTION  SUBROUTINE  INTERPRETED  STORAGE 


Title  (TITLE) 

System  Control  (SYSTEM) 

Grid  Points  (COORD) 

Boundary  Conditions  (BOUND) 
Element  Definitions  (ELEM) 

Grid  Point  Loads  (LOADS) 

Grid  Point  Axes  (GRAXES) 

Material  Library  Requests  (MATER) 
Grid  Point  Temperatures  (TEMP) 
Grid  Point  Pressures  (PRESS) 
Prescribed  Displacements  (PDISP) 


INPUT 

None 

INPUT 

Scratch 

data 

set 

1 

INPUT 

Scratch 

data 

set 

3 

BOUNT 

Scratch 

data 

set 

3 

ELEM 

Scratch 

data 

set 

3 

FGRLDS 

Scratch 

data 

set 

4 

FRED 

Scratch 

data 

set 

3 

FMAT 

Master  Output 

;  data  se 

INPUT 

Scratch 

data 

set 

3 

INPUT 

Scratch 

data 

set 

3 

BOUND 

Scratch 

data 

set 

3 
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If  output  matrix  position  one  was  non-blank,  then  a 
copy  of  the  actual  input  data  deck  is  also  written  on  the 
instruction  output  data  set  specified  by  the  FORMAT  II  System 
by  subroutine  COPYDK. 


2.  Interpreted  Input 

After  the  data  deck  has  been  read  and  interpreted 
under  control  of  subroutine  INPUT,  all  pertinent  data  exists 
on  scratch  data  sets  one  and  three.  If  output  matrix  position 
three  in  the  .USER04.  abstraction  instruction  is  non-blank, 
then  the  contents  of  scratch  data  sets  one  and  three  are  output 
under  that  matrix  name  onto  the  instruction  output  data  set 
specified  by  the  FORMAT  II  System  by  subroutine  OUTINT.  If 
this  "matrix,,  is  saved  and  input  at  input  matrix  position  two 
in  the  .USER04.  instruction,  the  Structural  Generative  System 
is  capable  of  restart  at  the  second  or  element  generation 
phase,  thereby  eliminating  a  repeat  of  the  input  phase.  This 
feature  is  recommended  for  usage  on  large  applications  where 
the  procedure  would  be  to  run  the  data  deck,  stop  after 
interpreting  and  storing  the  data,  check  for  input  errors, 
and  if  no  errors  are  present  restart  at  the  element  generation 
phase. 

Before  exiting  from  the  input  phase,  subroutine  CHEK 
is  called  to  perform  input  error  cross-checking.  While 
determining  the  logical  flow  at  the  Structural  Generative  System, 
subroutine  LOGFLO  also  recorded  the  input  sections  required  to 
generate  the  requested  output  matrices.  If  any  of  the  required 
input  sections  have  not  been  processed,  then  execution  will  be 
terminated  after  the  input  phase. 


C.  ELEMENT  MATRICES  GENERATION  PHASE  LOGIC  FLOW 

The  second  phase  of  operation  of  the  Structural  Generative 
System  consists  of  generation  of  the  element  matrices. 

If  input  matrix  position  two  of  the  input  .USER04,  abstrac¬ 
tion  Instruction  is  non-blank,  then  subroutine  ININT  is  called 
to  reconstruct  the  data  on  scratch  data  sets  one  and  three  from 
the  input  matrix. 

If  input  matrix  position  four  of  the  input  .USER04. 
abstraction  instruction  is  non-blank,  then  subroutine  DEFLEX 
is  called  to  store  the  input  displacements  or  stresses  (which 
ever  was  input)  on  scratch  data  set  four. 
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At  this  point  all  the  necessary  data  is  located  on  scratch 
data  sets  one  and  three,  placed  there  by  either  phase  one  or 
restart  using  input  matrix  position  two  of  the  .USER04. 
abstraction  instruction.  Basic  control  of  the  second  phase  is 
accomplished  by  subroutine  FELEM  under  subroutine  USO^B.  FELEM 
reads  scratch  data  set  one  to  obtain  system  control  information 
and  sets  suppression  controls  to  eliminate  generation  of 
undesired  element  matrices  by  calling  subroutine  SQUISH.  Scratch 
data  set  three  contains  the  necessary  input  for  each  element, 
one  set  of  element  input  per  record.  For  each  element,  sub¬ 
routine  ELPLUQ  reads  an  element  input  record,  selects  the  proper 
element  to  calculate  the  matrices  and  then  writes  the  generated 
matrices  on  scratch  data  set  two  in  compact  form. 

Prior  to  being  written  upon  scratch  data  set  two,  the 
element  matrices  are  temporarily  stored  in  the  blank  common 
work  area.  Also,  all  work  areas  that  are  needed  by  the 
specific  element  are  allocated  from  the  blank  common  work 
area.  For  these  reasons,  the  Structural  Generative  System 
requires  a  blank  common  work  area  of  at  least  13,000  words 
of  internal  core  storage. 

Imbedded  into  the  Element  Matrices  Generation  Phase,  at 
strategic  locations,  are  utility  packages  accessible  by  the 
specific  elements  which  require  their  capabilities.  Integra¬ 
tion  packages  and  small  scale  matrix  operation  packages  are 
examples  of  utility  sections  commonly  accessible  to  the  neces¬ 
sary  elements.  The  exact  locations  of  these  packages  are 
indicated  by  the  Structural  System  Overlay  Chart  (Appendix  I). 
Overlay  to  each  element  has  been  avoided  wherever  possible 
to  reduce  execution  process  time.  However,  an  area  of 
approximately  1000  locations  between  the  longest  link  and 
the  origin  of  the  common  area  has  been  kept  clear  to  allow 
for  future  substantial  alterations  to  be  made  without  re¬ 
designing  the  complete  overlay  structure. 


D.  OUTPUT  PHASE  LOGIC  FLOW 


1.  Organization  of  Output  Matrices 

All  output  entities  from  the  Structural  Generative 
System  are  written  following  the  rules  of  the  FORMAT  II  System. 
Each  output  entity  is  written  as  a  matrix,  consisting  of  a 
matrix  header,  matrix  column  records  and  a  matrix  trailer. 

The  following  list  exhibits  the  contents,  interpretation  of 
matrix  header  information  (number  of  rows,  number  of  columns) 
and  interpretation  of  matrix  column  records  for  each  output 
position  in  the  .USERQlJ.  abstraction  instruction. 
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a.  Output  Matrix  Position  One  (0HP1) 

Contents  -  Copy  of  card  input  data  deck 

Number  of  rows  -  Set  to  eighty  (80) 

Number  of  columns  -  Number  of  cards  in  data  deck 

Column  records  -  One  data  card  per  column  record, 

one  card  column  per  row 

b.  Output  Matrix  Position  Two  (0MP2) 

Contents  -  Material  library 

Number  of  rows  -  306  (maximum  nur.her  of  words 

possible  for  one  material 
entry) 

Number  of  columns  -  Number  of  material  tables  in 

library  pl\s  one 

Column  records  -  One  materia1,  table  per 

column  record 

c.  Output  Matrix  Position  Three  (0MP3) 

Contents  ~  Interpreted  input 

Number  of  rows  -  Set  to  number  of  words  in 

maximum  record  created 

Number  of  columns  -  Number  of  elements  plus  four 

Column  records  -  One  element  input  block  per 

record 

d.  Output  Matrix  Position  Four  (0MP4) 

Contents  -  External  system  grid  point 

loads 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  systenTplus  1 

Number  of  columns  -  Number  of  load  conditions 

Column  records  -  The  fiJ?st  word  is  the  external 

load  scalar  followed  by  one  load 
condition  per  column  record 
(use  .DEJOIN,  to  obtain  the 
load  scalar) . 

e.  Output  Matrix  Position  Five  (0MP5) 

Contents  -  Transformation  matrix  for 

application  of  boundary 
conditions 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  system 

Number  of  columns  -  Number  of  degrees  of  freedom 

in  total  system 
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Column  records 


-  (1)  for  desired  degrees  of 
freedom  -  contain  a  one 
In  the  assigned  reduced 
degree  of  freedom  row 

(2)  for  undesired  degrees  of 
freedom  -  column  record 
is  omitted  (null  column) 


Output  Matrix  Position  Six  (OMPo) 

Contents  -  Transformation  matrix  for 

assembly  of  element  matrices 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  total  system 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Contain  a  one  in  the  assigned 

degree  of  freedom  row  for  that 
summed  element  degree  of 
freedom 

Output  Matrix  Position  Seven  (0MP7) 

Contents  -  Element  stiffness  matrices 

Number  of  rows  -  Summation  of  element  degrees 

of  freedom 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Each  record  contains  a  column 

of  an  element  stiffness  matrix 

Output  Matrix  Position  Eight  (0MP8) 

Contents  -  Element  applied  load  matrices 

Number  of  rows  -  Summation  of  element  degrees 

of  freedom 

Number  of. columns  -  One 

Column  record  -  Contains  all  element  applied 

load  matrices 

Output  Matrix  Position  Nine  (0MP9) 

Contents  -  Element  stress  matrices 

Number  of  rows  -  Summation  of  element  stress 

point  and  component  orders 

Number  of  columns  -  Summation  of  element  degrees 

of  freedom 

Column  records  -  Each  record  contains  a  column 

of  an  element  stress  matrix 
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j.  Output  Matrix  Position  Ten  (OMPIO) 

Contents  -  Element  thermal  stress 

matrices 

Number  of  rows  -  Summation  of  element  stress 

point  and  component  orders 
Number  of  columns  -  One 

Column  record  *•  Contains  all  element  thermal 

stress  matrices 

k.  ‘  Output  Matrix  Position  Eleven  (0MP11) 

Contents  -  Element  incremental 

stiffness  matrix 

Number  of  rows  -  Summation  of  element 

degrees  of  freedom 

Number  of  columns  -  Summation  of  element 

degrees  of  freedom 

Column  records  -  Each  record  contains  a 

column  of  an  element  incre¬ 
mental  stiffness  matrix 

l.  Output  Matrix  Position  Twelve  (0MP12) 

Contents  -  Element  mass  matrices 

Number  of  rows  -  Summation  of  element 

degrees  of  freedom 

Number  of  columns  -  Summation  of  element 

degrees  of  freedom 

Column  records  -  Each  record  contains  a 

column  of  an  element  mass 
matrix 

m.  Output  Matrix  Position  Thirteen  (0MP13) 

Contents  -  System  constants 

Number  of  rows  -  Twenty-seven 

Number  of  columns  -  One 

Column  record  -  Ninteen  structural  system 

constants  (for  use  outside 

of  the  .USERO^.  module) 

The  following  is  a  description  of  the  variables 
in  this  matrix: 

Word  1  -  Number  of  directions  allowed 

Word  2  -  Number  of  types  of  movement  allowed 

Word  3  -  Number  of  reference  points  (highest 

reference  node  in  element  connections) 
Word  *1  -  Order  of  the  reduced  system  (number 

of  l's  plus  2* s) 

Word  5  -  Number  of  bounded  degrees  of  freedom 

(number  of  0’s) 
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Word  6  -  Number  of  unknown  degrees  of 

freedom  (number  of  l's) 

Word  7  -  Number  of  known  degrees  of 

freedom  (number  of  2’s) 

Word  8  -  Number  of  0’s  plus  l's 

Word  9  ~  Element  type  code,  equal  to  zero 

if  word  2-3,  equal  to  one  otherwise 
Word  10  -  Order  of  the  total  system 
Word  11  -  Number  of  elements 
Word  12  -  Number  of  load  conditions 
Word  13  -  Word  20  -  Reserved  for  fucure 

expansion 

Word  21  -  Number  of  eigenvalues  requested 
Word  22  -  Eigenvalue/vector  convergence 
criteria 

Word  23  -  Maximum  number  of  iterations 
Word  2K  ~  Control  for  iteration  debug  print 
Word  25  -  First  normalizing  element  for 
print 

Word  26  -  Second  normalizing  element  for 
print 

Word  27  -  Control  for  guess  vector  iteration 
start 

n.  Output  Matrix  Position  Fourteen  (OMP12!) 

Contents  -  Element  matrices  in  com¬ 

press  ei  form 

Number  of  rows  -  Varies  depending  on  problem 
Number  of  columns  -  One  column  for  each  element 
Column  records  -  Each  record  contains  all 

element  matrices  generated 
by  .USEROlJ.  instruction  in 
compressed  form  (to  be  used 
by  structural  modules  out¬ 
side  of  .USEROll.) 

o.  Output  Matrix  Position  Fifteen  (0MP15) 

Contents  -  Prescribed  displacements 

Number  of  rows  -  Number  of  degrees  of  freedom 

in  system 

Number  of  columns  -  Number  of  load  conditions 
Column  records  -  One  prescribed  displacement 

condition  per  column  record 
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It  should  be  noted  that  0MP1,  OMP2,  or  0MP3  and  0MP14 
are  not  actually  matrices  and,  therefore,  should  never  be 
referenced  as  input  to  an  algebraic  matrix  operation.  0MP7, 
0MP9,  0MP11  and  0MP12  are  formed  by  placing  the  element  matrices 
into  the  output  matrix  such  that  the  main  diagonal  of  the 
element  matrix  coincides  with  the  next  available  main  diagonal 
positions  in  the  output  matrix.  For  example,  if  the  first 
two  element  stiffness  matrices  represented  48  element  degrees 
of  freedom  each  (such  as  8  element  defining  points  with  6 
degrees  of  freedom  each)  then  the  first  would  be  located  in 
rows  one  to  48  and  column  one  to  48  in  the  output  matrix  and 
the  second  would  be  placed  into  rows  49  to  96  and  columns  49 
to  96.  Output  matrices  in  these  positions  are  almost  always 
written  in  FORMAT  II  compressed  column  format  due  to  the 
inherent  sparseness  of  non-zero  matrix  elements. 

OMP8  and  0MP10  are  formed  by  placing  each  element 
matrix,  which  Is  a  column  matrix,  into  the  succeeding  available 
row  positions  in  the  output  matrix. 


2.  Sequence  of  Output  Matrices 

Output  matrix  positions  one  to  five,  thirteen  and 
fifteen  are  output  sequentially  in  numerical  order  by  the 
Structural  Generative  System.  Since  these  seven  matrices  are 
generated  directly  from  data  contained  in  the  Input  deck,  they 
are  output,  if  non-blank,  as  part  of  phase  one  or  input  phase 
operations.  Specifically,  these  seven  output  matrices  are 
placed  into  the  FORMAT  II  system  by  the  following  subroutines 


in  phase  one: 

0MP1 

-  Subroutine 

COPYDK 

0M?2 

-  Subroutine 

FMAT 

0MP3 

-  Subroutine 

OUTINT 

0MP4 

-  Subroutine 

FLOADS 

0MP5 

-  Subroutine 

FTR 

0MP13 

-  Subroutine 

TSYS 

0MP15 

-  Subroutine 

PDISP 

Either  output  matrix  positions  six  through  twelve  or  output 
matrix  position  fourteen  is  released  Into  the  FORMAT  II  System 
during  phase  three  of  the  Structural  Generative  System.  Out¬ 
put-  of  matrices  six  through  twelve  Is  controlled  by  subroutine 
OUTMAT  using  utility  subroutines  US461,  US462  and  U5463.  In 
contrast  to  output  of  the  first  seven  matrices,  which  is  achieved 
consecutively,  output  of  matrices  six  through  twelve  will 
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usually  occur  concurrently.  Output  mati'Ax  position  fourteen 
is  released  to  the  FORMAT  System  by  subroutine  MAT.  Since 
output  matrix  fourteen  is  mutually  exclusive  With  output 
matrice  six  through  twelve  only  one  of  the  uboVe  subroutines 
OUTMAT  or  ELMAT  is  activated. 

Operational  flow  in  the  output  phase  of  matrices  six 
through  twelve,  if  output  matrix  fourteen  is  suppressed, 
consists  of  extracting  the  compacted  element  matrices  from 
scratch  data  set  two  and  releasing  them  to  the  FORMAT  II 
System  in  the  required  form.  Due  to  the  fact  that  more  than 
one  output  matrix  may  have  been  assigned  tc  the  same  instruction 
output  data  set  by  the  FORMAT  II  System,  direct  output  at 
matrix  generation  time  (phase  two)  is  impossible,  thus 
necessitating  the  use  of  scratch  data  set  two.  However,  at 
output  time,  the  optimum  procedure  is  determined  by  subroutine 
OUTMAT  to  achieve  multiple  matrix  output  per  pass  of  scratch 
data  set  two.  The  procedure  involves  determining  which  matrices 
may  be  output  during  the  same  pass  of  scratch  data  set  two  by 
(a)  comparing  the  assigned  instruction  output  data  set  number, 
and  (b)  type' of  matrix  being  output.  Output  matrix  positions 
eight  and  ten,  if  non-blank,  are  always  output  on  the  first 
pass.  Output  matrix  positions  six,  seven,  nine,  eleven,  and 
twelve  may  require  from  one  to  five  passes  of  scratch  data 
set  two,  recognizing  the  best  and  worst  possible  cases.  In 
general,  OUTMAT  may  only  output  one  matrix  per  pass  on  a  given 
instruction  output  data  set  with  the  exception  of  output  matrix 
positions  eight  and  ten  which  are  always  output  on  the  first 
pass  regardless  of  their  instruction  output  data  set  numbers. 

For  example,  given  the  following  instruction  output 
data  set  assignments  by  the  FORMAT  II  System  (all  output 
matrix  positions  referenced  are  non-blank) : 


Output  Matrix  Position 

6 

7 

8 
9 

10 

11 

12 


Format  Assigned  Instruction 
Output  Dats  Set 

H 

8 

3 

3 

8 

U 

3 
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OUTMAT  would  release  all  the  requested  matrices  (6-12)  to 
the  FORMAT  II  System  in  two  passes  of  scratch  data  set  two 
as  indicated  below. 

PASS  1  -  6,  7,  8,  9,  10 
PASS  2  -  11,  12 

Output  Matrix  Positions  6*  7  and  9  may  be  output  concurrently 
on  pass  one  since  they  are  to  be  located  on  different  data 
sets.  Positions  eight  and  ten  will  always  be  output  on  pass 
one.  Since  positions  11  and  12  are  to  be  located  on  different 
data  sets,  they  may  be  output  on  the  same  pass. 

If  a  matrix  is  less  than  50%  dense,  the  compressed 
column  record  format  is  invoked. 


SECTION  IV 


OPERATIONAL  CONDITIONS 


A.  IMPLEMENTATION 


1.  Direct  Machine  Control 

Under  direct  machine  control  the  only  changes  required 
for  implementation  on  any  system  are  contained  in  one  deck, 
subroutine  MRES.  The  implementation  operations  involved  are 
explained  in  detail  in  Appendix  IX.  In  general,  the  infor¬ 
mation  which  must  be  supplied  consists  of  defining  system 
parameters;  such  as  system  input  unit,  system  output  unit, 
size  of  blank  common  work  area,  and  limiting  size  of  matrix 
capability;  and  assigning  MAGIC  III  System  functions  to  the 
available  external  storage  units. 

Under  direct  machine  control  the  Structural  Genera¬ 
tive  System  has  been  inserted  as  a  normal  user  module  with 
the  same  origin  and  accessibility  as  any  other  user  module. 

Operation  of  the  Structural  Generative  System  requires 
the  common  area  to  be  at  least  1300010  storages  and  the  number 

of  external  storage  units  to  be  at  least  eight.  Both  of  these 
facts  must  be  inserted  into  MRES  at  implementation  time. 


2 .  SUBSYS  Control 

Implementation  upon  an  IBM  7090/9^  requires  an  improve¬ 
ment  of  the  loading  capabilities  of  IBSYS.  The  software 
package  selected  is  SUBSYS,  developed  by  Westinghous  Corpora¬ 
tion.  A  software  package  was  selected  in  deference  to  multiple 
passes  at  IBJOB  due  to  the  inflexibilities  of  XBLDR  under 
IBJOB.  For  example,  IBLDR  requires  the  use  of  at  least  three 
tape  drives  to  load  each  portion,  thereby  removing  units  from 
use  by  FORMAT  II.  Also,  data  would  be  inserted  in  the  middle 
of  program  deck  and  printed  output  would  be  interspersed  with 
IBJOB  Processor  Output.  The  most  decisive  advantage,  however, 
was  the  saving  of  load  time  under  SUBSYS.  Normal  load  time 
under  IBLDR  for  the  complete  program  is  approximately  eight 
minutes  on  a  7090,  whereas  under  SUBSYS  control  the  program  is 
placed  into  core  and  execution  started  with  a  load  time  of 
fifteen  to  twenty  seconds.  A  more  detailed  discussion  of 
SUBSYS  is  given  in  Appendix  X. 
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APPENDIX  I 


OVERLAY  STRUCTURE 


The  Overlay  structure  is  divided  into  two  sections. 
The  first  section  is  the  revised  FORMAT  II  Overlay 
Structure  (Reference  2)  and  the  second  section  is  the 
Structural  System  Overlay  structure. 


REVISED  FORMAT  II  OVERLAY 


FIGURE  1.1  SYSTEM  MONITOR 
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FIGURE  1.2  PREPROCESSOR  MONITOR 


FIGURE  1.3  EXECUTION  PHASE 


FIGURE  I.li  EXECUTION  PHASE,  Continued 


FIGURE  1-5  EXECUTION  PHASE,  Continued 
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FIGURE  1.6  EXECUTION  PHASE,  continued 
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FIGURE  1.3  PHASE  ONE  SECTION 
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FIGURE  1.9  PHASE  TWO  (ELEMENT  GENERATION)  AND 
PHASE  THREE  (OUTPUT)  CONTROL 
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FIGURE  I. 10  PHASE  TWO  CONTROL  AND  UTILITY  PACKAGES 


Figure  I. 11  Quardrilateral  Thin  Sehll  Element  and  High-Aspect 
fiatio  Quadrilateral  Thin  Shell  Element 
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FIGURE  1.13  TRAPEZODIAL  RING  AND  TRIANGULAR  PLATE  ELEMENTS 


FIGURE  1.14  TRIANGULAR  THIN  SHELL  ELEMENT 


FIGURE  1.15  TRIANGULAR  CROSS  SECTION  RING  ELEMENT 
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FIGURE  1.16  TOROIDAL  RING  ELEMENT 


FIGURE  1 . 17  QUADRILATER  SHEAR  PANEL  ELEMENT 
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Figure  1.19  Asymmetric  Triangular  Cross-Section  Ring  Element 
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Ftgure  1.20  Triangular  PriBm  Element  and  Tetrahedron  Element 


Figure  1.21  Symmetrical  Shear  Web  Element 
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Figure  1.22  Rectangular  Prism  Element 


APPENDIX  II 


LOGICAL  FLOWCHARTS 


A.  STRUCTURAL  GENERATIVE  SYSTEM  LOGIC  FLOW 


2.1 


/ 


^  A 


!  COPYDK 


OUTPUT  STRUCTURAL  DATA/ 
\  DECK  AS  A  MATRIX  / 


INPUT  ^ 


CONTROL  INPUT  DATA  PROCESSING  ' 
USING  FRED,  BOUND,  ELEM  AND  FGRLDS/ 


CONTINUE 
INPUT  DATA 
PROCESSING 
IN  INPUT 


FMAT 


(PROCESS  MATERIAL  LIBRARY 
\INPUT  DATA  TJSING  SHIFT 


/  EXIT  n. 
/FROM  INPUTS 
)UE  TO  'REPORT 
V  LABEL?  / 


SET  INDICATOR 
TO  IGNORE 
CALL  TO 
US04B 


_ REFORM  _ _ 

TRANSLATE  REPORT  FORM  INPUT  DECK 
USING  PHASE1, LATCH, FORMIN, 

\ _ _  PHASE2,  AND  OPEN 


^ EXECUTION' 
OF  PROBLEM 
DESIRED? 
s(END  CARD) 


2 


OUTPUT  MATRIX 
POSITION  3  BLANK  OR^ 
INPUT  INSUFFICIENT  FOR 
^GENERATION  OF  OUTPUT^* 
\  MATRIX  3? 


/  OUTPUT  MATRIX  \ 
POSITION  4  BLANK  OR 
INPUT  INSUFFICIENT  FOR 
GENERATION  OF  OUTPUT^ 
\  MATRIX  4?  X 


FLOADS 


OUTPUT  GRID  POINT 
LOADS  MATRIX  / 


OUTPUT  MATRIX 
POSITION  5  BLANK  OR 
INPUT  INSUFFICIENT  FOR 
GENERATION  OF  OUTPUT^ 
\  MATRIX  4? 
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GENERATION  AND  OUTPUT  PHASE  LOGIC  PLOW 


APPENDIX  III 


LIST  OF  STRUCTURAL  SYSTEMS  SUBROUTINE  FUNCTIONS 


Sflg.Uan  v&BSLlQj. 

A  Control  and  Utility  Subroutines  . . .  .  3*2 

B  Quadrilateral  Thin  Shell  Element 

Subroutines . . . 3*6 

C  Frame  and  Incremental  Frame  Element 

Subroutines  ....  * . .  3*8 

D  Triangular  Plate  and  Quadrilateral  Plate 

Element  Subroutines  .....  .  3*9 

E  Triangular  Thin  Shell  Element  Subroutines  .  3*10 

F  Triangular  Cross  Section  Ring  Element  Subroutines.  .  .  3rl2 

G  Toroidal  Ring  Element  Subroutines  .  3«1^ 

H  Quadrilateral  Shear  Panel  Element  Subroutines  .....  3*15 

I  Trapezoidal  Ring  Element  Subroutines . 3*16 

J  Rectangular  Prism  Element  Subroutines  .  3*17 

K  Tetrahedran  Element  Subroutines  .  3*18 

L  Triangular  Prism  Element  Subroutines  .  3*19 

M  Symmetrical  Shear  Web  Element  Subroutines  .  3*20 

N  Asymmetric  Triangular  Cross  Section  Ring  . 

Element  Subroutines  . 3*21 

0  High  Aspect  Ration  Quadrilateral  Thin  Shell 

Element  Subroutines  . . 3*22 


3*1 


APPENDIX  III 


LIST  OF  STRUCTURAL  SYSTEM  SUBROUTINE  FUNCTIONS 


A.  CONTROL  AND  UTILITY  SUBROUTINES 

US04  Control  three  phas us  of  ooeratlon  of 

.USER04.  module 

NTEST  Examine  matrix  name  for  suppression  code 

REC1  Perform  writing  and  reading  of  tape  records 

for  interpreted  element  input 

LOQFLO  Determine  logical  path  for  .USER04. 

module 

US04A  Control  first  phase  (input  phase)  pf 

operation  of  .USER04.  module 

INPECK  Create  data  deck  from  input  deck  matrix 

CONTRL  Select  scratch  tape  unit  for  copying 

structural  data  deck,  extracting  structural 
system  information  in  the  process 

COPYDK  Create  input  deck  matrix  from  data  deck 

INPUT  Master  control  subroutine  for  reading  and 

storing  of  structural  Input  data 

FRED  Generate  grid  point  axes  transformation 

matrices 

BOUND  Read  and  store  boundary  constraints 

ELEM  Read  and  store  element  input  data 

MATCH  Compare  a  material  name  to  an  entry  name 

in  the  material  library 

LAG  Interpolate  material  properties  with  respect 

to  temperature 

FGRLD.S  Read  and  store  grid  point  load  conditions 

and  loaa  scalars 


FMAT  Generate,  revise  and/or  display  material 

library  information 


3.2 


SHIFT 

REFORM 

PHASE1 

LATCH 

FORMIN 

PHASE2 

OPEN 

PDISP 

CHEK 

OUTINT 

FLOADS 

FTR 

TSYS 

US04B 

ININT 

DEFLEX 

FELEM 

SQUISH 

ELPLUG 


Manipulate  material  library  internal 
storage  area 

Control  report  form  input  preprocessing 

Read  and  store  report  form  input  data  deck 

Compare  an  input  label  to  list  of  legal 
input  labels 

Read  and  store  report  form  table  input 

Merge  data  stored  by  PHASE1  into  logical 
sequence  for  INPUT 

Control  scratch  tape  manipulations  for 
report  form  input 

Output  prescribed  displacements  as  a 
FORMAT  matrix 

Perform  input  cross  checking 

Output  interpreted  input  as  a  matrix 

Output  grid  point  load  conditions  and  load 
scalars  as  Format  matrix 

Output  boundary  constraints  as  a  Format 
matrix 

Output  structural  system  constants  as  a 
Format  matrix 

Control  second  ard  third  phases  (element 
raatri::  generation  and  output)  of  operation 
of  .USERCt.  module 

Create  interpreted  input  from  a  matrix 

Sort  and  store  input  displacements 

Control  generation  of  element  matrices 

Set  non-generation  indicators  for  suppressed 
matrices 

Allocate  work  storage  for  elements,  read 
Interpreted  element  input,  select  proper 
element  and  store  element  matrices  on 
scratch  tape  in  compact  form 


3.3 


I 


REC3 

REC4 

MINV 

AXTRA2 

MAB 

MSB 

BCB 

MATB 

SYMPRT 

LOC 

ELTEST 

MPRD 

TPRD 

POOF 

MSTR 

AXTRA1 

AXTRA3 

ELPRT 

OUTMAT 


Perform  writing  of  tape  records  for  element 
control  data 

Perform  compact  writing  of  tape  records  for 
generated  element  matrices 

Perform  in-core  matrix  inversion 

Apply  grid  point  axes  transformation 

Perform  in-core  matrix  multiplication 

Perform  in-core  matrix  multiplication  where 
first  matrix  is  symmetric 

Perform  in-core  matrix  triple  product  of  the 
form  T  KT  where  K  is  symmetric 

Perform  in-core  matrix  multiplication  of  the 
T 

form  A  B 

Print  symmetrically  stored  matrix 

Compute  single  subscript  index  given  double 
subscript  indices 

Compare  input  element  control  information 
to  required  element  control  information 

Perform  generalized  in-core  matrix 
multiplication 

Perform  generalized  in-core  matrix  transpose 
multiplication 

Expands  element  matrices  to  displacement 
degrees  of  freedom 

Change  storage  arrangement  of  a  matrix 

Apply  grid  point  axes  transformations 

Apply  grid  point  axes  transformations 

Print  generated  element  matrices 

Output  generated  element  matrices  as 
Format  matrices 


3.4 


/ 


US461 

US462 

US463 

ELMAT 

AI 

BINT 

AK 

AM 

IFAC 

PJAB 

F6219 

F6211 

AJ 

COEF 

F89 

FFIOO 


Write  a  matrix  column  record  in  compressed 
format 

Generate  each  elements  contribution  to  the 
assembly  transformation  matrix 

Generate  full  column  from  symmetrically 
stored  matrix 

Output  compressed  element  matrices  as  a 
format  matrix 

Controls  calculation  procedures  of  triangular 
integration  package 

Perform  integration  by  expansion  of  binomial 
theorem 

Calculate  slope  of  line  between  two  points 
of  a  triangle 

Calculate  intercept  of  line  between  two 
points  of  a  triangle 

Calculate  n  factorial  for  a  given  n 

Fe  .‘iorm  defined  integration 

Perform  defined  integration 

Perform  defined  integration 

Perform  defined  integration 

Calculate  binomial  coefficients 

Perform  defined  integration 

Perform  defined  integration 


3.5 


B.  QUADRILATERAL  THIN  SHELL  ELEMENT  SUBROUTINES 


PLUG1 
CC  21 

MABC 

NEWFT 

CDELPQ 

CHDEL1 

P1PRTA 

CK11 

CT11 

MATI60 

CTOOM 

CTGRM 

CC1 

CMMASS 

CSTM 

CDM 

CFMTcS 


Master  control 

Form  intermediate  stiffness  matrix  by 
summation 

Perform  in-core  matrix  triple  product 
multiplication 

Calculate  revised  thermal  load  formulation 

Calculate  coordinate  integrals 

Arrange  coordinate  integrals  in  storage 

Print  results  of  coordinate  and  material 
properties  calculations 

Control  generation  of  membrane  stiffness 
matrix 

Generate  membrance  stiffness  transformation 
sub -matrix 

Invert  8x8  matrix  in-core 

Generate  membrane  transformation  matrix  for 
transformation  from  oblique  to  geometric 
coordinates 

Generate  membrane  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Generate  membrane  stiffness  sub-matrices 

Generate  membrance  contribution  to  element 
mass  matrix 

Generate  membrane  contribution  to  element 
stress  matrix 

Generate  membrance  displacement  derivative 
matrix  for  element  stress  matrix  control 

Control  generation  of  membrance  contribution 
to  element  thermal  stress  and  element  thermal 
load  matrices 


3.6 


CFMV 


PRT1 

CK22 

CTGB 

MATI70 

CTOGB 

CTGRB 

CC2 

CFP 

CFPB 

CSTF 

CDF 

CDFX 

CDFY 

CFFTS 

CFFV 

CFMASS 


Generate  membrane  thermal  load  matrix 

Print  membrane  and  "lexure  transformation 
matrices  arid  contribution  to  element 
stiffness,  stress,  thermal  stress,  thermal 
load  and  pressure 

Control  generation  of  flexure  stiffness 
matrix 

Generate  flexure  transformation  sub-matrix 

Invert  16  x  1 6  matrix  in-core 

Generate  flexure  transformation  matrix  for 
transformation  from  oblique  to  reference 
system  coordinates 

Generate  flexure  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Generate  flexure  stiffness  sub-matrices 

Control  generation  of  element  pressure  load 
matrix 

Generate  intermediate  element  pressure  load 
matrix 

Generate  flexure  contribution  to  element 
stress  matrix 

Generate  flexure  displacement  derivative 
matrix  for  element  stress  matrix 

Generate  flexure  displacement  partial  with 
respect  to  X  derivative  matrix  for  element 
stress  matrix 

Generate  flexure  displacement  partial  with 
respect  Y  derivative  matrix  for  element 
stress  matrix 

Control  generation  of  flexure  contribution 
to  element  thermal  stress  and  thermal  load 
matrices 

Generate  flexure  contribution  to  element 
thermal  load  matrix 

Generate  flexure  contribution  to  element 
mass  matrix 


3.7 


FRAME  AMD  INCREMENTAL  FRAME  ELEMENT  SUBROUTINES 


CTS  Generate  transformation  matrix  for 

transformation  from  geometr*''.  to  reference 

CTCQ  Generate  transformation  matrix  for  trans¬ 

formation  from  material  to  geometric  axes 

CECC  Evaluate  effect  of  eccentricities 

INCRE  Generate  element  incremental  stiffness 

matrix 

P7PRT  Print  transformation  matrices  and  inter*- 

mediate  calculations 

PLUG7  Master  control,  generation  of  frame  element 

matrices 

PLUG22  Master  control,  generation  of  incremental 

frame  matrices 

FINP22  Generate  element  incremental  matrix  for 

the  incremental  frame  element 


3.8 


TRIANGULAR  PLATE  AND  QUADRILATERAL  PLATE  ELEMENT  SUBROUTINES 


uncos 

BCB12 

KOBLIQ 

P1718M 

SELQ 

FTELQ 

PLUG17 

PLUG18 

TR18ST 

PBMP18 


To  evaluate  the  direction  cosines  given  any 
three  points  that  define  a  plane 

To  evaluate  a  triple  product  matrix  where 
all  matrices  are  square 

To  perform  a  transformation  on  the  element 
stiffness  matrix  AKEL  (TRANT»AXF,L*TRAN) 

Initialize  element  properties  from  the 
material  table  for  membrane  properties  with 
flexural  data  only  for  PLUG 2 7  and  PLUG18 

To  transform  the  stress  matrix  generated  by 
PLUG17  and  PLUGi8  to  the  stress  system  required 
(generally  local) 

To  transform  the  element  thermal  load  matrix 
into  global  or  oblique  system 

Master  control  for  the  generation  of 
triangular  plate  element  matrices 

Master  control  for  the  generation  of 
quadrilateral  plate  element  matrices 

From  transformation  matrices  for  the  stress 
and  thermal  stress  matrices 

To  evaluate  the  B  matrix  for  the  quadrilateral 
plate  elements,  out  of  plane 
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TRIANGULAR  THIN  SHELL  ELEMENT  SUBROUTINES 


PLUG  2 
ASSY2 

BCD 

DTAPR 

PFMASS 

PMMASS 

MATPR 

NEWFT1 

PTBM 

PTMGS 

DPQINT 

PKM 

PSTM 

PFMTS 

PFMV1 

APRT 


Master  Control 

Assemble  membrane  and  flexure  stiffness 
sub-matrices 

Perform  In-core  matrix  multiplication  of 
the  form  TST  where  T  is  a  diagonal  matrix  and 
S  is  a  symmetric  matrix 

Process  coordinate  data 

Calculate  the  flexural  contribution  to  the 
mass  matrix 

Calculate  the  membrane  contribution  to  the 
mass  matrix 

Generate  material  properties  matrices 

Calculate  revised  thermal  matrices 

Generate  membrane  transformation  matrix 
for  transformation  from  oblique  to  geometric 
coordinate  systems 

Generate  membrane  transformation  matrix  for 
transformation  from  geometric  to  reference 
system  coordinates 

Calculate  coordinate  integrals 

Generate  membrane  contribution  to  element 
stiffness  matrix 

Generate  membrane  contribution  to  element 
stress  matrix 

Generate  membrane  contribution  to  element 
thermal  load  and  thermal  stress  matrices 

Generate  intermediate  membrane  thermal  load 
matrix 

Print  membrane  and  flexure  transformation 
matrices  and  contributions  to  element 
stiffness,  stress,  thermal  stress,  thermal 
load  and  pressure  load  matrices 
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.10 


i 


PTFGS 

PKF 

CCB 

PFP 

PFFTS 

PFFV'l 

PSTF 

PTBF 

EPRT 

PLAS2D 

PNC1NE 

PNG1NE 


Generate  flexure  transformation  matrix 
for  transformation  from  geometric  to 
reference  system  coordinates 

Generate  flexure  contribution  to  element 
stiffness  matrices 

Perform  in-ccre  matrix  triple  product  of 

m 

the  form  T*KT  where  K  is  symmetric  and 
accuracy  criteria  is  imposed 

Generate  element  pressure  load  matrix 

Generate  flexure  contribution  to  element 
thermal  stress  and  thermal  load  matrices 

Generate  intermediate  flexure  thermal 
load  matrix 

Generate  flexure  contribution  to  element 
stress  matrix 

Generate  flexure  transformation  matrix  for 
trnasformation  from  oblique  to  geometric 
coordinate  systems 

Print  final  element  matrices 

Non-functional 

Non-functional 

Non-functional 
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TRIANGULAR  CROSS  SECTION  RING  ELEMENT  SUBROUTINES 


PLUG  6 
EXPCOL 

EXPSJX 

TRAIC 

TESTJ 

TRCPRT 

TRAIE 

TIEPRT 

TRAIK 

TIKPRT 

TRAIPP 

TPFPRT 

TRAIFT 

TFTFRT 

TRAIS 

TISPRT 

TRAITS 

TTSPRT 

TRAIM 

TIMPRT 

TRAIFS 

TFSPRT 


Master  control 

Expand  column  matrix  to  six  degrees  of 
freedom  per  point 

Expand  symmetric  matrix  to  six  degrees  of 
freedom  per  point 

Generate  coordinate  transformation  matrices 
and  integrals 

Impose  accuracy  criteria  upon  Integrals 

Print  coordinate  transformation  matrices 
and  integrals 

Generate  material  properties  matrices 
Print  material  properties  matrices 
Generate  element  stiffness  matrix 
Print  element  stiffness  matrix 
Generate  element  pressure  load  matrix 
Print  element  pressure  load  matrix 
Generate  element  thermal  load  matrix 
Print  element  thermal  lead  matrix 
Generate  element  stress  matrix 
Print  element  stress  matrix 
Generate  element  thermal  stress  matrix 
Print  element  thermal  stress  matrix 
Generate  elenH.^t  mass  matrix 
Print  element  mass  matrix 
Generate  element  pre-strain  load  matrix 
Print  element  pre-strain  load  matrix 
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TRAIST 


Generate  element  pre-stress  load  matrix 
TSTPRT  Print  element  pre-strep*;  load  matrix 

PL6PRT  Print  all  element  matrices  generated 
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TOROIDAL  RING  ELEMENT  SUBROUTINES 


PLUG  5 

ROMBER 

pi) 

F5 

F6 

jMATRX 

DMATRX 

GAMMAT 

PCURL 

PLMX 

SCRLM 

SOLVE 

QUADI 


Master  control,  generate  element  stiffness, 
thermal  load,  pressure  load,  stress  and 
thermal  stress  matrices 

Perform  integration  by  Romberg  Method 

Evaluate  a  defined  function  for  ROMBER 

Evaluate  a  defined  function  for  ROMBER 

Evaluate  a  defined  function  for  ROMBER 

Generate  coordinate  transformation  matrix 

Generate  material  properties  matrix 

Generate  iterial  transformation  matrix 

Generate  intermediate  thermal  load  matrix 

Generate  intermediate  pressure  load  matrix 

Generate  intermediate  strebo  matrix 

Solve  for  element  stress  coefficients 

Performs  integration  using  numerical 
quadrature  methods 


PRINT5 


Print  generated  element  matrices 


H.  QUADRILATERAL  SHEAR  PANEL  ELEMENT  SUBROUTINES 


PLUG 14 

Master  control,  generate  element 
stress  and  mass  matrices 

stiffness 

\ 

MULTP 

Performs  in-core  specialized  matrix 
multiplication 

P14PRT 

Prints  intermediate  calculations 
generated  element  matrices 

and 

3.15 
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TRAPEZODIAL  RING  ELEMENT  SUBROUTINES 


PLUG  8 

Master  control  for  the  generation  of 
trapezodial  ring  element  matrices 

r  r  ZQ 

Solves  the  integral  H  ■  1  /  g-  drdz 

for  values  of  Q  «  0,  1  and  2  for  a  trapezoid 

SUBINT 

ZMRD 

Perform  double  precision  multiplication  of 
two  matrices  (C  ■  A  *  B) 

ZTRD 

Perform  double  precision  multiplication  of 

m 

two  matrices  (C  «  A  *  B) 

KMPY 

Multiply,  in  double  precision,  each  element 
of  a  matrix  by  a  scalar  to  form  a  resultant 
matrix 

ERIC 

Compute  the  pressure  load  vector  for  the 
trapezodial  ring 

P8MASS 

Generate  element  mass  matrix  for  the 
trapezodial  ring 

3.16 
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Rectangular  Prism  Element  Subroutines 

PLUG20  -  Master  Control 

GEOMD  -  Generate  geometry  data 

TRAAE  -  Generate  material  properties  matrix 

MPOWJF  -  Print  element  matrices 

GAMMAG  -  Generate  reorder  transformation  matrix 

GAMMAS  -  Generate  system  transformation  matrix 

DISPMT  -  Generate  strain-displacement  matrix 

MASS20  -  Generate  consistent  mass  matrix 

P20FT  -  Generate  thermal  load 

P20FP  -  Generate  pressure  load 

PASSYM  -  Assembles  local  consistent  mass  matrix  into 
system  mass  matrix 
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L.  Triangular  Prism  Element  Subroutines 


PLUG13  -  Master  Control 

PLUG10  -  Generates  element  matrices  for  the  3  tetra- 
hedrans  of  the  prism 


3.39 
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M.  Symmetrical  Shear  Web  Element  Subroutines 


PLUG23  -  Master  Control 


3.20 
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Asymmetric  Triangular  Cross  Section  Ring  Element 
subroutines 


PLUG25 

HRAIKS 

HRAIES 

HLOGEN 

HMASSG 

HTHGEN 

HRAICS 

HRAISS 


Master  Control 

Generate  element  stiffness  matrix 
Generate  elastic  constants 
Generate  pressure  load 
Generate  mass  matrix 
Generate  thermal  load 
Generate  transformation  matrix  and 
area  integrals 
Generate  stres3  matrix 


3.21 


/ 


0.  High  Aspect  Ratio  Quadrilateral  Thin  Shell  Element 
Subroutines 


PLUG 26 
NEWFT 
CDELPQ 
CK26 

CMMASS 

PIPRTA 

GENSM 

PRT1 


CK22 

CFP 

CSTF 

CFFTS 

CFMASS 

STRS26 

FT26 

SZAL26 


Master  Control 
Calculate  thermal  load 
Calculate  coordinate  integrals 
Generate  membrane  stiffness  and  trans¬ 
formation  matrix 
Generate  membrane  mass  matrix 
Print  results  of  coordinate  and  material 
properties  matrix 

Calculate  mode  shapes  and  derivative  functions 
Print  transformation,  stiffness,  stress, 
thermal  stress,  thermal  load,  and 
pressure  matrices 

Generates  flexural  stiffness  matrix 
Generates  pressure  load 
Generates  flexural  stress  matrix 
Generates  flexural  thermal  load  and 
thermal  stress 

Generates  flexural  mass  ..atrix 
Generates  membrane  stress  matrix 
Generates  membrane  thermal  load  matrix 
Generates  membrane  thermal  stress  matrix 


3.22 


APPENDIX  IV 


ANALIC 

ASSEM 

A3SEMC 

ASSEMS 

C.MEQS 

COLMRD 

CCLREP 

DECODE 

DEJNC 

DEJNR 

DEJOIN 

DISPL1 

DISPPR 

EIO 

EIQB 

EIG1 


LIST  OF  SUBROUTINE  FUNCTIONS  OF  MODULES 
ADDED  TO  THE  FORMAT  II  SYSTEM 


Control  routine  for  statics  analysis  in  core 
when  using  the  .ANALIC.  abstraction  instructions 

Control  routine  for  assembling  element  matrices 
using  the  .ASSEM.  abstraction 

Assembly  thermal  load  element  matrices 

Assembly  element  stiffness,  element  mass  and 
element  incremental  matrices 

Control  routine  for  solving  simultaneous  equations 
and  triangular ising  matrix  using  the  .CHOL., 

. CHTRIA . ,  .TRIA.  abstraction  instructions 

Utility  subroutine  to  uncompress  a  column  of 
a  matrix  in  dynamic  storage 

Generate  a  rectangular  matrix  by  repeating  the 
input  column  the  specified  number  of  times  using 
the  .COLREP.  abstraction  instruction 

Generate  a  copy  of  a  Format  matrix  on  a  scratch 
tpae  in  full  format 

Perform  column  partitioning  of  a  matrix 

Perform  row  partitioning  of  a  matrix 

Control  routine  for  matrix  partitioning  using 
the  .DEJOIN,  abstraction  Instruction 

Printing  routine  used  by  GPRINT 

Controls  printing  of  displacements  from  GPRINT 

Main  deration  routine  of  .EIGEN2.  module 

Controls  iteration  routine  EIG 

Controls  routine  for  calculating  eigenvalues 
and  eigenvectors  using  the  .EIGEN1.  abstraction 
instruction 

Controls  printing  of  eigenvalues  and  vectors 


4.1 


EIGPPR 


ELREAD 

EPRINT 

FORCE 

FORCE1 

FORCE2 

FREEUP 

GPRINT 

GPRNT1 

HDECO 

HSUM 

IDENTC 

IDENT 

INST04 

INST05 

INST43 

INST60 

MATPRT 


Routine  to  decode  the  compressed  element 
matrix  output  by  the  .USER04.  module 

Controls  printing  of  element  stresses  and 
forces  when  using  the  .EPRINT.  abstraction 
instruction 

Control  routine  to  calculate  element  force 
when  using  the  .FORCE,  abstraction  instruction 

Routine  to  set  up  dynamic  sotrage  and  control 
calculation  of  element  forces  for  each  element 

Calculates  element  force 

Routine  to  return  work  sotrage  to  available  use 

Control  routine  to  print  reactions,  displacement, 
eigenvalues  and  eigenvectors  when  using  the 
.GPRINT.  abstraction  instruction 

Controls  storage  and  correct  print  transfers 
for  .GPRINT. 

Control  routine  to  calculate  element  matrices 
dependent  upon  the  Nth  harmonic  when  using  the 
. HDEC .  abstraction  instruction 

Control  routine  for  assembling  the  contributions 
of  the  harmonics  when  using  the  .HSUM.  abstraction 
instruction 

t  • 

Generates  an  identity  matrix  when  using  the 
•IDENTC.  abstraction  instruction 

Generates  an  identity  matrix  when  using  the 
.IDENTR.  abstraction  instruction 

Instruction  analyzer  for  the  .GRPINT.  instruction 

Instruction  analyzer  for  the  '.EPRINT.  Instruction 

Instruction  analyzer  for  the  .DEJOIN,  instruction 

Instruction  analyser  for  the  .STRESS,  and  .FORCE-, 
instructions 

Controls  printing  of  a  user  matrix  when  using 
.GPRINT. 
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MATSUP 

NULL 

REACTP 

REGE2 

REPLAS 

STRESS 

STRES1 

STRES2 

STRPRT 

TSUM 


Insert  suppressed  input  matrix  names  into  the 
Format  system 

Generates  a  null  matrix  using  the  .NULL,  abstraction 
instruction 

Controls  printing  of  reactions  when  using  .GPRINT. 
Utility  routine  used  by  EIG1 

Control  routine  to  replace  one  matrix  with  another 
matrix  when  using  the  .REPLAC.  abstraction  instruction 

Control  routine  to  calculate  element  stresses 
when  using  the  .STRESS,  abstraction  instruction 

Routine  to  set  up  dynamic  storage  and  control 
calculation  of  element  stresses  for  each  element 

Calculates  element  stresses 

Prints  element  stresses  and  forces 

Generates  a  tape  summary  of  matrices  on  a  specified 
logical  unit 


APPENDIX  V 


REVISIONS  TO  FORMAT  SYSTEM  DECKS 


Subroutine  Name:  PREP 

Purpose  of  Revision:  Provide  the  cababillty  for  suppressing 

input  matrices  in  an  abstraction  instruction 

Method:  Fortran  statement  number  200  was  changed  to 

initialize  the  variable  NUMSUP  to  zero.  NUMSUP  was  added 
to  the  calling  sequence  to  subroutine  INST  and  upon  return 
will  contain  the  number  of  input  suppressed  matrices  located 
during  compilation  of  the  input  abstraction  instructions. 

If  NUMSUP  is  non-zero  upon  return  from  INST,  then  subroutine 
MATSUP  is  called  to  introduce  the  input  suppressed  matrices 
into  the  Format  system. 


5.1 


Subroutine  Name:  EUTL4 

Purpose  of  Revision:  To  retain  the  second  word  in  the  matrix 
header  when  copying  a  matrix.  Thus  the  KODE  word  in  the 
matrix  header  will  not  be  changed  to  zero  when  copying  a 
matrix. 

Method:  After  EUTL3  finds  the  matrix  to  be  copied,  a  back¬ 
space  is  issued  to  read  the  KODE  word  of  the  matrix  header. 
This  KODE  is  transferred  to  the  matrix  header  of  the  new 
matrix . 


Subroutine  Name: 


EUTL5 


Purpose  of  Revision:  To  insure  that  the  second  word  in  the 
matrix  header  is  given  the  value  assigned  by  the  user  in  the 
calling  argument  of  1*UTL5  to  the  variable  KODE. 

Method:  When  writing  the  matrix  header  write  the  variable 
KODE  from  the  argument  list  as  the  second  word  of  the  header. 


Subroutine  Name:  INST 

Purpose  of  Revision:  Provide  distinct  names  for  suppressed 

matrices  and  record  the  number  of  input  suppressed  matrices 
encountered  while  compiling  the  abstraction  instructions. 

Method:  The  variable  NUMSUP  was  added  to  the  calling  sequence 

of  INST  and  inserted  into  the  calling  sequence  for  INST90  to 
record  the  number  of  input  suppressed  matrices  located.  The 
variable  KOUNT  was  initialized  in  INST  as  zero  and  inserted 
in  the  calling  sequence  to  INST90  to  be  i  ed  as  a  counter  to 
ensure  the  generation  of  unique  suppressed  matrix  names. 


5.4 


Subroutine  Name: 


INST90 


Purpose  of  Revision:  Introduce  unqiue  matrix  names  into  the 

Format  system  for  both  output  and  input  suppressed  matrices 
for  tho  .1JSERXX .  form  input  abstraction  instruction. 

Method:  The  variables  KOUNT  and  NUMSUP  were  added  to  the 

calling  sequence  for  subroutine  INST90,  KOUNT  to  indicate 
the  next  unique  suppressed  matrix  name  and  NIJMSUP  to  record 
the  number  of  input  suppressed  matrices  encountered.  Whether 
input  or  output,  a  suppressed  matrix  is  located  and  a  name 
assigned  to  it  by  the  same  procedure.  All  blanks  have  been 
removed  from  the  input  instruction  by  subroutine  PUTL1.  The 
instruction  is  scanned,  first  the  output  side,  then  the  input 
side.  Whenever  a  matrix  position  has  length  zero,  i.e.  the 
matrix  name  was  blank,  the  suppressed  name  is  created  by 
inserting  four  slashes  for  the  first  four  characters  and 
adding  one  to  KOUNT  and  inserting  that  value  as  the  last  two 
characters.  The  sign  of  the  matrix  is  set  to  plus.  If  the 
suppressed  matrix  was  an  input  matrix,  i.e.  was  encountered 
on  the  right  sign  of  the  equal  sign,  then  NUMSUP  is  incremented 
by  one. 
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Subroutine  Name: 


MATR 


Purpose  of  Revision:  Provide  the  capability  of  placing 

card  input  matrices  on  the  same  data  set  as  input  suppressed 
matrices,  if  necessary. 

Method:  If  card  input  matrices  are  present  then  subroutine 

MATR  is  called  to  place  these  matrices  on  NDATA,  the  data 
set  selected  by  the  Format  pre-processor  for  that  purpose. 
However,  if  input  suppressed  matrices  were  present  then  they 
already  exist  on  NDATA  at  the  time  that  MATR  is  called.  There¬ 
fore  MATR  had  to  be  revised  to  check  NUMD,  the  variable 
indicating  the  number  of  matrices  already  on  NDATA,  before 
recording  card  input  matrices  on  NDATA.  If  NUMD  is  zero 
then  NDATA  is  rewound  and  a  data  set  header  written  and  the 
card  input  matrices  recorded.  If  NUMD  is  non-zero,  then 
NDATA  is  searched  until  the  data  set  trailer  is  located,  then 
backspaced  over  the  data  set  trailer  and  then  the  card  input 
matrices  are  recorded. 


Subroutine  Name: 


ALOC 


Purpose  of  Revision:  Pass  the  value  of  IPRINf,  the  Format 

system  print  control,  to  subroutine  ALOC 4  for  transmittal 
when  operating  under  SUBSYS  control. 

Method:  The  variable  IPRINT  was  added  to  the  calling 

sequence  for  ALOC  and  inserted  into  the  call  statement  to 
ALOC 4. 
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Subroutine  Name:  AL0C31 

Purpose  of  Revision:  Indicate  to  the  Format  system  the 

number  of  scratch  data  sets  required  to  execute  the  .USERO^. 
instruction. 

Method:  The  variable  MINSCR(9iO  was  set  equal  to  four. 


5.8 


/ 


Subroutine  Name:  ALOC1! 


Purpose  of  Revision:  Store  on  the  instruction  data  set, 

NINST,  the  necessary  data  for  re-initialization  of  program 
constants  for  operation  under  Subsys  control. 

Method:  When  proceeding  from  program  to  program  under 

Subsys  control,  the  necessary  system  parameters  must  be 
reset  at  the  start  of  each  program.  The  values  of  the 
parameters  are  obtained  as  follows:  NPIT,  the  system  input 
unit,  NPOT,  the  system  output  unit,  KONST,  the  maximum 
matrix  size  capability  and  NWORK,  the  number  of  available 
work  storages  are  obtained  via  the  COMMON  statement  in 
ALOCij.  The  value  of  IPRINT  is  received  through  the  calling 
sequence  of  AL0C4.  These  five  system  parameters,  NPIT, 
NPOT,  KONST,  NWORK  and  IPRINT,  are  added  as  extra  words  to 
the  return  instruction  recorded  on  NINST. 
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appendix  VI 


MAGIC  ERROR  MESSAGES 


The  following  is  a  list  of  all  MAGIC  error  messages. 

The  list  is  divided  into  three  sections.  The  first  section 
contains  all  Format  error  messages  (Reference  2)  and  is 
divided  into  two  parts,  the  preprocessor  error  message,  and 
the  execution  error  message.  The  second  section  contains 
error  messages  from  all  arithmetic  and  non-arithmetic  modules 
developed  to  he  used  in  conjunction  with  the  structural 
generative  module.  The  third  section  contains  error  messages 
generated  by  the  structural  generative  system  itself,  which 
is  the  . USER04 .  module.  In  each  section  the  error  messages 
are  in  alphaoetic  order.  The  error  message  codes  are  signifi¬ 
cant  in  that  the  first  six  characters  identify  the  subroutine 
from  which  the  error  message  emanates.  The  occurrence  of  **** 
in  the  error  message  indicates  that  addit'  jnal  descriptive 
information  will  be  supplied. 


6.1 


SECTION  1. 


FORMAT  ERROR  MESSAGES 


ALOCOl  INSUFFICIENT  STORAGE  FOR  ALLOCATION 

The  number  of  words  of  working  storage  available  to  the 
allocator  is  less  than  the  minimum  required  for  complete 
allocation  of  this  job.  This  condition  can  be  remedied  by 
reducing  the  number  of  abstraction  instructions. 

ALOC02  INVALID  NO.  OF  MASTER  INPUT/OUTPUT  DATA  SETS  SPECIFIED 

The  number  of  master  input  data  sets  and/or  master  output 
data  sets  specified  on  "INPUT  TAPE"  or  "OUTPUT  TAPE"  cards  is 
greater  than  the  number  of  master  input  and/or  master  output 
data  sets  defined  in  the  machine  resources  area  as  being 
available  to  FORMAT  II.  This  condition  can  be  remedied  by 
reducing  the  number  of  "INPUT  TAPE"  and/or  "OUTPUT  TAPE" 
cards. 


ALOC03  INSUFFICIENT  UTILITY  DATA  SETS  FOR  ALLOCATION 

The  number  of  data  sets  with  the  FORMAT  II  system  function 
IOUTIL  is  less  than  the  minimum  number  required  by  the  FORMAT 
II  Preprocessor  during  the  preprocessing  phase.  This  condition 
can  be  remedied  by  reducing  the  number  of  "INPUT  TAPE"  or 
"OUTPUT  TAPE"  cards  used  in  this  job  or  by  modifying  the  machine 
resources  area,  (i.e.,  define  additional  data  sets  with  the 
FORMAT  II  system  function  IOUTIL. 

ALOCOl  MASTER  OUTPUT  DATA  SET  ******  SPECIFIED  IN  SAVE 
INSTRUCTION  NOT  DEFINED 

A  "SAVE"  instruction  in  the  abstraction  instruction  sequence 
refers  to  a  master  output  data  set  name  which  has  not  been 
defined  on  an  "OUTPUT  TAPE"  card.  This  condition  can  be  remedied 
by  including  the  appropriate  "OUTPUT  TAPE"  card  in  the  job. 

AL0C05  MASTER  INPUT  DATA  SET  ******  HAS  NOT  BEEN  MOUNTED 

The  FORMAT  II  allocator  has  not  been  able  to  locate  a  master 
input  data  set  which  has  been  specified  on  an  "INPUT  TAPE"  card. 
This  condition  is  usually  caused  by  mounting  the  correct  master 
input  data  set  on  the  wrong  unit  or  by  misspelling  the  name  of 
a  properly  mounted  data  set  on  the  "INPUT  TAFE"  card. 


ALOCO 6  MATRIX  ******  IS  NON-EXISTENT 

A  matrix,  which  appears  in  the  abstraction  instruction 
sequence  and  which  has-  not  been  created  in  the  abstraction 
instruction  sequence  prior  to  its  use,  has  not  been  card  input 
and  does  not  appear  on  any  master  input  data  set.  This  con¬ 
dition  can  be  remedied  by  inputting  the  required  matrix. 

ALOC07  DUPLICATE  MATRICES  ******  IN  MATRIX  DATA 

Two  or  more  matrices  with  the  same  name  have  been  card 
input.  This  condition  can  be  remedied  by  ensuring  that  all 
card  input  matrices  have  unique  names. 

ALOC08  CREATED  MATRIX  ******  IS  CARD  INPUT 

A  matrix  which  is  created  in  the  abstraction  instruction 
sequence  has  the  same  name  as' a  matrix  which  is  card  input. 

This  condition  can  be  remedied  by  removing  the  matrix  in 
question  from  the  card  input  matrix  data. 

ALOCO 9  SUBSCRIPTS  OF  ******  EXCEED  DIMENSIONS  0?  MATRIX 

The  indices  of  a  scalar  element  to  be  extracted  from  a 
matrix  are  larger  than  the  dimensions  of  that  matrix.  This 
condition  can  be  remedied  by  changing  the  indices  of  the  scalar 
element  specified  in  the  abstraction  instruction  sequence. 

ALOCIO  DUPLICATE  MATRICES  CREATED  —  NAME  ****** 

A  matrix  in  the  abstraction  instruction  sequence  appears 
more  than  once  on  the  left  side  of  an  equal  sign.  This  condition 
can  be  remedied  by  ensuring  that  all  matrix  names,  which  appear 
on  the  left  side  of  an  equal  sign  in  the  abstraction  instruction 
sequence,  have  unique  names. 

AL0C11  MATRIX  ******  IS  USED  MORE  THAN  ONCE  IN  INSTRUCTION  *** 

The  matrix  names  appearing  in  the  Indicated  instruction 
in  the  abstraction  instruction  sequence  do  not  have  unique 
names.  This  condition  can  be  remedied  by  ensuring  that  ail 
matrix  names  appearing  in  a  given  abstraction  instruction  have 
unique  names. 

AL0C12  CREATED  MATRIX  ******  HAS  BEEN  INPUT 

A  matrix  which  appears  on  the  left  side  of  an  equal,  sign 
in  the  abstraction  instruction  sequence  has  the  same  name  as 
a  required  Input  matrix.  This  condition  can  be  remedied  by 
either  changing  the  name  of  the  required  input  matrix  or  by 
changing  the  name  of  the  matrix  which  appears  on  the  left  side 
of  the  equal  sign. 
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AL0C13  MATRICES  CREATED  IN  INSTRUCTION  •««  NEVER  REFERENCED 

The  indicated  abstraction  instruction  in  the  abstraction  • 
instruction  sequence  creates  matrices,  none  of  which  are 
referenced  in  subsequent  abstraction  instructions.  This  con¬ 
dition  can  be  remedied  by  removing  the  indicated  abstraction 
instructions  from  the  abstraction  instruction  sequence. 

AL0C14  DUPLICATE  STATEMENT  NUMBERS  ****** 

Duplicate  statement  numbers  occur  in  the  abstraction 
instruction  sequence.  This  condition  can  be  remedied  by 
ensuring  that  each  statement  number  occuring  in  the  abstraction 
instruction  sequence  is  unique. 

ALOC15  GO  TO  DESTINATION  ******  IS  MISSING  OR  OCCURS  3EF0RE 
IF  TEST 

An  abstraction  instruction  "IF11  in  the  abstraction 
instruction  sequence  conditionally  transfers  to  a  non-existent 
statement  number  cr  transfers  to  a  statement  number  cn  an 
abstraction  instruction  which  is  sequentially  earlier  than 
the  "IF"  abstraction  instruction  in  question.  This  condition 
can  be  remedied  by  ensuring  that  all  "IF"  abstraction  instructions 
conditionally  transfer  to  a  statement  number  which  occurs 
sequentially  after  the  "IF"  abstraction  instruction. 

AL0C16  NON  CONFORMABLE  MATRICES  IN  INSTRUCTION  *** 

Two  matrices  occur  in  the  indicated  abstraction  Instruction 
in  the  absti’action  instruction  whose  dimensions  are  such  that 
the  matrix  operation  in  the  indicated  abstraction  instruction 
is  not  defined. 

EXEQ01  THE  FORMAT  SYSTEM  IS  UNABLE  TO  LOCATE  MATRIX  ****** 

This  message  signifies  a  malfunction  of  the  user-coded 
subroutine  which  creates  the  specified  matrix. 

EXEQ02  CONFORMABILITY  ERROR  IN  INSTRUCTION  CREATING  MATRIX  ****** 

The  matrices  involved  on  the  right  side  of  the  equals 
sign  in  the  instruction  creating  the  specified  matrix  are 
unconformable. 


EXEQ03  MATRIX  »»*»«*  IS  SINGULAR 

The  matrix  is  singular  in  a  "Solution  of  Equations" 
routine,  i.e.,  in  "STRCUT,"  "SEQEL"  or  "INVERS." 

EXEQ04  AN  ERROR  HAS  OCCURRED  IN  THE  USER  **  MODULE 

An  error  recognized  by  the  indicated  user-coded  subroutine 
has  occurred.  This  will  usually  be  associated  with  incorrect 
definition  of  the  special  data  for  use  by  thesubroutine. 

EXEQ05  AN  IMPROPER  UPDATE  HAS  BEEN  MADE  TO  THE  FORMAT  SYSTEM  - 
EXECUTION  TERMINATED 

A  new  permanent  module  has  not  been  properly  incorporated. 

The  FORMAT  II  systems  analyst  should  be  contacted  if  this  error 
message  occurs. 

EXEQ05  AN  ERROR  HAS  OCCURRED  IN  A  USER-CODED  MODULE,  ERROR 
HAS  BEEN  WRITTEN  BY  MODULE 

An  error  has  occurred  in  a  non-Format  module.  The 
specific  error  has  been  written  by  the  subrbutine  in  which 
the  error  was  found. 

EUTL3  THE  SYSTEM  IS  UNABLE  TO  LOCATE  A  MATRIX.  A  TAPE  SUMMARY 
OF  LOGICAL  UNIT  ****  WILL  FOLLOW 

The  Format  system  is  unable  to  locate  a  matrix.  A  tape 
summary  of  the  data  set  on  which  the  matrix  should  have  been 
is  printed  out.  The  name  of  the  matrix  will  appear  in  the 
next  error  message. 

INST01  ILLEGAL  OPTION  SPECIFIED  ON  $ INSTRUCTION  CARD 

An  option  other  than  "SOURCE"  or  "NOSOURCE"  has  been 
specified  on  the  "$ INSTRUCTION"  card  or  a  valid  option  starts 
before  card  column  16  in  the  "$INSTRUCTION"  card. 

INST02  INVALID  STATEMENT  NUMBER  SPECIFIED 

The  statement  number  which  is  specified  in  card  columns 
1-5  of  the  abstraction  instruction  preceding  this  error  message 
is  composed  of  characters  which  are  not  all  numeric. 

INST03  INVALID  CHARACTER  IN  COLUMN  6 

Card  column  6  of  the  abstraction  instruction  preceding 
this  error  message  contains  a  character  other  than  a  blank  or  zero* 
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INST04  UNRECOGNIZABLE  OPERATION  CODE 

The  operation  specified  in  the  abstraction  instruction 
preceding  this  error  message  is  not  contained  in  the  FORMAT 
II  library  of  valid  operations. 

INST 0 4  SYNTAX  ERROR  IN  -  G PRINT  -  INSTRUCTION 

INST04  ILLEGAL  NEGATIVE  INPUT  VALUE  FOR'  SUPPRESSION  OF  MATRIX 
ELEMENTS,  ABSOLUTE  VALUE  TAKEN 

The  effective  zero  value  for  suppression  of  element 
print  in  the  GPRINT  instruction  must  be  positive. 

INST04  INVALID  SPECIFICATION  OF  INPUT  MATRICES 

An  Incorrect  number  of  input  matrices  has  been  specified 
in  the  GPRINT  instruction. 

INST04  ILLEGAL  SPECIFICATION  OF  COLUMN  HEADERS 

Incorrect  syntax  in  GPRINT  vj’nen  written  column  headers. 

INST05  SYNTAX  ERROR  IN  -  IF  -  INSTRUCTION 

The  abstraction  instruction  "IP"  which  precedes  this  error 
message  contains  an  unrecognizable  field. 

INST05  SYNTAX  ERROR  IN  -  EPRINT  -  INSTRUCTION 

INST05  INVALID  PRINT  CONTROL 

The  print  control  in  the  EPRINT  instruction  was  Incorrectly 
specified. 

INST05  ILLEGAL  NEGATIVE  INPUT  VALUE  FOR  SUPPRESSION  OF  MATRIX 
ELEMENTS,  ABSOLUTE  VALUE  TAKEN 

The  effective  zero  value  for  suppression  of  element  crint 
in  the  EPRINT  INSTRUCTION  must  be  position. 

INST05  ILLEGAL  SUPPRESSION  OF  PARAMETER 

The  code  indicating  either  stress  or  force  matrices  to 
be  printed  has  been  omitted. 


6.6 


INST06  SYNTAX  ERROR  IN  -  PRINT  -  INSTRUCTION 

The  abstraction  instruction  "PRINT"  which  precedes  this 
error  message  contains,  an  unrecognizable  field. 

INST 07  SYNTAX  ERROR  IN  -  SAVE  -  INSTRUCTION 

The  abstraction  instruction  "SAVE"  which  precedes  this 
error  message  contains  an  unrecognizable  field. 

INST 0 8  OPERATION  CODE  NOT  INCLOSED  BY  PERIODS 

The  operation  code  in  the  abstraction  instruction  preceding 
this  error  message  is  not  inclosed  by  periods. 

INST09  SYNTAX  ERROR  IN  ARITHMETIC  INSTRUCTION 

The  arithmetic  abstraction  instruction  preceding  this 
error  message  contains  an  unrecognizable  field. 

INST10  THIS  INSTRUCTION  IS  MOT  AVAILABLE 

An  incomplete  modification  to  the  instruction  card  processor 
area  has  been  made.  The  FORMAT  II  systems  analyst  should  be 
notified  immediately. 

INST43  INVALID  SPECIFICATION  OF  PARAMETERS 

A  syntax  error  has  occurred  in  the  DEJOIN  instruction. 

INST 4 3  -  INVALID  INDEX  SPECIFIED 

Parameter  specifying  row  or  column  dejoin  is  illegal. 

INST *13  INVALID  MATRIX  NAME 

The  DEJOIN  instruction  contains  one  invalid  matrix 

name. 


MATR01  UNRECOGNIZABLE  OPTIONS  ON  $MATRIX  CARD  STANDARD  OPTIONS 
USED  WARNING  ONLY 

An  option  other  than  "LIST",  "NOLIST",  "PRINT"  or  "NOPRINT" 
has  been  specified  on  the  "$MATRIX"  card  or  a  valid  option 
starts  before  column  16  on  the  "$MATRIX"  card. 
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MATR02  CARD  FOLLOWING  $ MATRIX  CONTROL  CARD  IS  NOT  A  HEADER 
CARD  OR  HAS  -  H  -  MISSING  IN  COLUMN  1 

The  first  card  following  the  "$MATRIX"  card  mu3t  be  the 
header  card  of  the  first  card  input  matrix.  All  data  up  to 
the  first  header  card  will  be  ignored. 

MATR03  NAME  ON  DATA  CARD  IS  DIFFERENT  FROM  NAME  ON  HEADER 
CARD.  THIS  MATRIX  WILL  BE  IGNORED 

The  matrix  header  card  and  all  .associated  matrix  data  must 
have  the  same  name  in  card  columns  6*7-72. 

MATR04  ROW  AND/OR  COLUMN  VALUE  EXCEED  MATRIX  SIZE,  IS  NEGATIVE 
OR  IS  ZERO  AND  VALUE  IS  NONZERO.  THIS  MATRIX  WILL  BE 
IGNORED. 

b 

An  element  specified  in  the  matrix  card  input  data  is  out¬ 
side  the  dimensions  of  the  matrix,  of  which  it  is  supposed  to 
be  an  element. 

MATR05  MATRIX  EXCEEDS  ALLOTTED  STORAGE.  THIS  MATRIX  WILL  BE 
IGNORED. 

The  number  of  words  of  working  storage  available  to  the 
matrix  card  reader  module  is  less  than  the  number  of  words 
necessary  to  contain  all  the  nonzero  elements  in  one  of  the 
card  input  matrices.  The  number  of  words  of  working  storage 
required  for  a  given  matrix  is  approximately  three  (3)  times 
the  number  of  nonzero  elements  in  the  matrix.  This  condition 
can  be  remedied  by  decreasing  the  number  of  nonzero  elements 
in  the  card  input  matrix. 

MATR06  DUPLICATE  I-J  VALUES  ENCOUNTERED.  THIS  MATRIX  WILL  BE 
IGNORED.  I  *  **#*  J  *  **** 

Two  or  more  values  have  been  specified  for  the  same  matrix 
element  in  the  matrix  card  Input  data.  This  condition  can  be 
remedied  by  ensuring  that  each  matrix  element  has  a  unique  set 
of  I  -  J  values. 

MATR07  I  VALUE  ON  HEADER  CARD  EXCEEDS  ALLOTTED  SIZE  OR  IS  LESS 
THAN  OR  EQUAL  TO  ZERO.  THIS  MATRIX  WILL  BE  IGNORED. 

The  number  of  rows  specified  In  tne  header  card  of  a  card 
input  matrix  is  greater  than  the  maximum  number  of  rows  permitted 
in  a  matrix  which  is  processed  by  the  FORMAT  II  system,  or  is 
less  than  or  equal  to  zero.  This  condition  can  be  remedied  by 
reducing  the  dimensions  of  the  card  input  matrix. 
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MATR08  J  VALUE  ON  HEADER  CARD  EXCEEDS  ALLOTTED  SIZE  OR  IS  LESS 
THAN  OR  EQUAL  TO  ZERO.  THIS  MATRIX  WILL  BE  IGNORED. 

The  number  of  columns  specified  in  the  header  card  of  a 
card  Input  matrix  is  greater  than  the  maximum  number  of  columns 
permitted  in  a  matrix  which  is  processed  by  the  FORMAT  II  system, 
or  is  less  than  or  equal  to  zero.  This  condition  can  be  remedied 
by  reducing  the  dimensions  of  the  matrix. 

MATR09  FIRST  CHARACTER  OF  MATRIX  NAME  ON  HEADER  MUST  BE 
ALPHABETIC.  THIS  MATRIX  WILL  BE  IGNORED. 

The  matrix  name  which  is  to  be  given  to  a  set  of  matrix 
card  input  data  and  which  is  punched  in  card  column  67-72  of 
the  header  card  and  all  associated  data  cards  must  follow  the 
rules  for  valid  matrix  names  as  defined  for  the  FORMAT  II 
system.  The  rule  wnich  applies  in  this  case  is  that  the  first 
character  of  a  matrix  name  must  be  alphabetic. 

MATR10  ILLEGAL  CARD  ENCOUNTERED.  FOLLOWING  CARDS  IGNORED  UNTIL 
ANOTHER  -  $  -  CONTROL  CARD  IS  FOUND. 

A  card  has  been  encountered  in  the  matrix  card  input  data 
which  has  an  illegal  character  punched  in  ckra  column  1.  The 
only  valid  characters  which  may  apoear  in  card  column  1  are  ,!K", 
"E",  and  blank. 

MATR11  CARD  FOLLOWING  E  CARD  IS  NOT  A  $  CONTROL  CARD  -  WARNING 
ONLY. 

In  a  valid  FORMAT  II  deck  setup  the  only  cards  which  may 
follow  the  "E"  card  which  is  the  last  card  in  the  matrix  card 
input  data,  are  the  ’^SPECIAL"  card  and  the  "$END"  card. 

MRES01  FIRST  CARD  IS  NOT  A  -  $  -  CONTROL  CARD 

The  first  card  of  all  FORMAT  II  jobs  must  be  a  "SMAGIC" 
or  a  "^FORMAT"  card. 

MRES02  FIRST  -  $  -  CONTROL  CARD  TS  NOT  A  $MAGIC  CARD.  ALLOCATION 
SUPPRESSED 

The  first  card  of  all  FOFt  ’?  II  jobs  must  be  a  "$MAGIC" 
or  a  "$FORMAT"  card. 
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MRES03  UNRECOGNIZABLE  OPTION  ON  -  $MAGIC  CARD  STANDARD 
OPTION  ASSUMED 

An  option  other  than  "NEW" ,  "STANDARD"  (or  blank)  or 
"CHANGE"  has  been  specified  on  the  "$MAGIC"  card  or  a  valid 
option  starts  before  column  16  on  the  "$MAGIC"  card, 

MRESOH  ILLEGAL  CARD  FOR  -  CHANGE  -  OPTION  -  AI LOCATION 
SUPPRESSED 

The  "DELETE"  card  and  the  "UPDATE"  card  are  the  only 
valid  machine  resources  data  cards  which  are  valid  when  the 
"CHANGE"  option  has  been  specified  on-  the  "$FORMAT"  card.  The 
"SETUP"  card  is  the  only  valid  machine  resources  data  card 
which  is  valid  when  the  "NEW"  option  has  been  specified  on 
the  "^FORMAT"  card. 

MRES05  THE  SYSTEM  INPUT  DATA  SET  OR  OUTPUT  DATA  SET  HAS  BEEN 
SPECIFIED  AS  A  FORMAT  II  SYSTEM  FUNCTION 

Two  Fortran  logical  data  sets  which  must  not  be  specified 
on  "UPDATE",  "DELETE",  or  "SETUP"  cards  ai e  the  system  input 
data  set  and  the  system  output  data  set . 

MRES06  DUPLICATE  DATA  SETS  SPECIFIED  -  ALLOCATION  SUPPRESSED 

A  Fortran  logical  data  set  has  been  specified  more  than 
once  on  "SETUP"  or  "UPDATE"  cards. 


MRES07  INVALID  #***  VALUE  DETECTED  ALLOCATION  SUPPRESSED 

An  invalid  field  has  been  specified  on  an  "UPDATE"  or 
"SETUP"  '’ard.  The  valid  fields  are  as  follows.  The  first 
field  must  contain  the  logical  data  set  number  (an  integer). 

The  second  field  a  valid  FORMAT  II  system  function  (e.g., 
"MASTRI" ,  "MA3TR0",  or  "IOUTIL"),  The  third  field  must 
contain  the  physical  device  containing  the  data  set.  The 
valid  specifications  in  the  field  are  "TAPE",  "DISK",  "DRUM", 
or  "CELL".  The  fourth  field  must  contain  the  logical  channel 
designation.  This  consists  of  a  letter  A  to  H.  The  fifth 
field  must  contain  the  capacity  of  the  data  set  in  basic 
machine  units  (e.g.,  bytes,  etc.).  This  field  must  be  an 
integer  number.  The  error  message  indicates  which  of  the  five 
fields  is  in  error. 

MRES08  INCORRECT  SETUP  OR  UPDATE  CARD  ALLOCATION  SUPPRESSED 

A  missing  field  has  been  detected  on  a  "SETUP"  or  "UPDATE" 

card. 
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MRES09  INSUFFICIENT  I/O  UTILITY  DATA  SETS  -  ALLOCATION 
SUPPRESSED 

A  minimum  number  of  Fortran  logical  data  sets  available 
to  FORMAT  II  must  have  the  FORMAT  II  system  function  of  "IOUTIL". 
The  FORMAT  II  preprocessor  selects  several  of  the  data  sets  with 
this  function  for  scratch  data  sets  during  preprocessing.  This 
condition  can  be  remedied  by  specifying  additional  data  sets  on 
"SETUP"  or  "UPDATE"  cards  with  the  FORMAT  II  system  function 
"IOUTIL". 


MRES10  ILLEGAL  DEVICE  SPECIFIED  FOR  MASTER  INPUT  DATA  SET 

The  only  valid  device  types  which  may  be  specified  for  a 
FORMAT  II  data  set  whose  system  function  is  "MASTRI"  are 
"TAPE"  and  "DISK".  A  "SETUP"  or  "UPDATE"  card  is  the  source 
of  the  error. 


MRES11  ILLEGAL  DEVICE  SPECIFIED  FOR  MASTER  OUTPUT  DATA  SET 

The  only  valid  device  types  which  may  be  specified  for  a 
FORMAT  II  data  set  whose  system  function  is  "MASTRO"  are 
"TAPE"  and  "DISK".  A  "SETUP"  or  "UPDATE"  card  Is  the  source 
of  the  error. 


PREP01  INVALID  CONTROL  CARD  OR  INCORRECT  DECK  SETUP 

The  FORMAT  II  preprocessor  has  encountered  a  control  card 
which  Is  unrecognizable  or  which  is  valid  but  does  not  occur 
in  its  proper  place.  Recommended  corrective  action  is  to  check 
the  spelling  of  all  control  cards  and  check  the  deck  set  up. 

PREP 02  NOT  A  -  $  -  CONTROL  CARD.  CARD  IGNORED 

When  an  invalid  control  card  is  encountered  or  incorrect 
deck  setup  is  recognized,  the  preprocessor  searches  for  the 
next  "$"  control  card. 

PREP03  PREPROCESSING  TERMINATED  EXECUTION  HALTED 

Whenever  a  serious  error  occurs  the  preprocessing  is 
terminated  and  a  "NOGO"  condition  is  established. 

PROBOl  UNRECOGNIZABLE  OPTION  ON  -  $RUN  -  CARD.  STANDARD 
OPTION  USED. 

An  option  other  than  "GO",  "NOGO",  "LOGIC"  or  "NOLOGIC" 
has  been  specified  on  the  "$RUN"  card  or  a  valid  option  starts 
before  column  16  in  the  "$RUN"  card. 
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PROB02  CONTRADICTORY  EXECUTION  OPTIONS  -  ALLOCATION  SUPPRESSED 

The  options  ''GO1'  and  "NOGO"  have  been  specified  on  the 
"$RUN"  card. 

PROB03  CONTRADICTORY  LGOIC  OPTIONS  -  ALLOCATION  SUPPRESSED 

The  options  "LOGIC"  and  "NOLOGIC"  have  been  specified  on 
the  "$RUN"  card. 

PROBOiJ  MISSING  LEFT  PARENTHESIS  -  ALLOCATION  SUPPRESSED 

A  problem  specification  data  card  has  a  missing  left 
parenthesis . 

PR0B05  UNRECOGNIZABLE  CARD 

A  problem  specification  data  card  is  unrecognizable.  The 
valid  problem  specification  data  cards  a^e  the  "ANALYSIS"  card, 
the  "PROBLEM"  card,  the  "PAGE  SIZE"  card,  the  "INPUT  TAPE"  card, 
and  the  "OUTPUT  TAPE"  card. 

PROB06  MISSING  COMMA  ON  MASTER  I/O  TAPE  CARD  -  ALLOCATION 
SUPPRESSED 

There  is  a  missing  field  on  an  "INPUT  TAPE"  card  or  on 
an  "OUTPUT  TAPE"  card  in  the  problem  specification  data. 

PROB07  ILLEGAL  MASTER  I/O  DATA  SET  NAME  -  ALLOCATION  SUPPRESSED 

The  master  input  or  master  output  data  set  name  which  has 
been  specified  on  "INPUT  TAPE"  card  or  on  "OUTPUT  TAPE"  card 
in  the  problem  specification  data  is  invalid.  Master  Input/Output 
data  set  names  follow  the  same  rules  as  matrix  names.  In 
particular,  the  name  must  be  1-6  characters  long  and  the  first 
character  must  be  alphabetic. 

PR0B08  ILLEGAL  INTEGER  ON  MASTER  I/O  TAPE  CARD 

The  second  field  of  an  "INPUT  TAPE"  or  "OUTPUT  TAPE"  card 
In  the  problem  specification  data  is  not  an  integer  number. 

PROBOS  ILLEGAL  PAGE  SIZE  -  ALLOCATION  SUPPRESSED 

An  invalid  page  size  has  been  specified  on  the  "PAGE  SIZE" 
card  in  the  problem  specification  data.  The  valid  page  sizes 
are  "11  «  8",  "8  *  11"  and  "1H  *  11". 


6.12 


r 


PROBIO  MASTER  INPUT  OR  OUTPUT  DATA  SET  USED  PREVIOUSLY 

All  master  Input  and  output  dai;a  set  names  as  specified  on 
"INPUT  TAPE"  and  "OUTPUT  TAPE"  cards  in  the  problem  specification 
data  must  be  unique. 

»ROBll  INVALID  SIZE  SPECIFIED  ON  SIZE  CARD 

An  integer  number  must  be  specified  ir.  the  only  field  of 
the  "SIZE"  card. 
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MISCELLANEOUS  ARITHMETIC  MODULE  ERROR  MESSAGE 


ASSEM 


A3SEMC 


ASSEMS 


COLREP  - 


D5JWC 


DEJNR 


DEJOIN 


The  order  of  the  assembled  -  unreduced  system, 

NSYS  ■  **»**,  t.'.e  ximum  size  system  car. 
only  -  *****  ,D .  0 .  . 

The  variable  KONST  in  subroutine  MRES  must  be 
updated  to  allow  the  user  to  assemble  a  system 
with  NSYS  degrees  of  freedom. 

Element  number  ******  generated  a  LISTEL  value 
of  ***»»,  while  NSYS  «  ****». 

If  this  error  occurs  see  the  MAGIC  system  analyst. 

Must  update  the  dimension  of  the  list  and  format 
arrays  to  allow  for  *****  degrees  of  freedom. 

The  dimension  of  two  arrays  in  subroutine  ASSEMS 
must  be  updated  to  assemble  more  degrees  of  freedom 
than  allowed.  If  this  error  occurs  see  the 
MAGIC  system  analyst. 

Input  matrix  ******  exceeds  allowable  siae 
IMAX  -  *»*»». 

The  number  of  rows  of  the  input  matrix  exceeds 
the  value  of  KONST.  IMAX  is  the  number  of  rows 
in  the  Input  matrix. 

The  partition  number  *  *****,  is  greater  than 
or  equal  to  the  column  dimension  *  *****  of  the 
Input  matrix. 

An  Invalid  column  partition,  number  has  been 
specified  in  the  DEJOIN  instruction  1  <  JPART  <  ICOL. 

The  partition  number  *  *»***,  is  greater  than  or 
equal  to  the  row  dimension  •«  *****  of  the  input 
matrix . 

An  invalid  row  partition  number  has  been  specified 
i»i  the  DEJOIN  instruction  1  £  JPART  <  IROW. 

Invalid  partition  numner  *  ***** 

The  matrix  partition  number  must  be  greeter 
than  one. 


EPRINT 


EPRINT 


EPRINT 


EPRINT 


F0RCE1 


FORCE2  - 


FREEUP 


QPRNT1 


Unable  to  execute  the  EPRINT  module.  The  work 
array  is  not  long  enough  for  execution. 

The  variable  NWORK  in  subroutine  MRES  must  be 
updated  for  more  work  storage. 

The  element  information  is  for  element  number 
*»»*  _  go  to  next  element. 

Unable  to  print  out  stresses  or  forces  for  this 
element,  continue  execution.  If  this  error 
occurs  contact  the  MAGIC  system  analyst 

The  number  of  elements  in  the  input  matrices 
are  not  the  same. 

If  this  error  occurs  contact  the  MAGIC  system 
analyst. 

Printing  for  element  type  **###,  are  not  available, 
proceeding  to  next  element. 

The  EPRINT  module  has  not  been  updated  to  handle 
this  element  type.  Contact  the  MAGIC  system 
analyst. 

Unable  to  execute  the  force  module.  The  work 
array  contains  ##*#**#*  words,  and  ***#*### 
words  are  needed  to  process  the  maximum  element. 

There  is  not  enough  work  storage  to  calculate 
the  forces  for  all  elements.  The  variable 
NWORK  must  be  updated  In  subroutine  HRES. 

Forces  for  element  type  ***#*,  are  not  available, 
proceeding  to  next  element. 

The  FORCE  module  has  not  been  updated  to  handle 
this  element  type.  The  MAGIC  system  analyst  should 
be  contacted  If  this  error  occurs. 

The  number  of  matrices  to  be  kept  was  input  as 
MATOUT  ~  **###*,  the  number  of  non-zero  elements 
of  MAT  »  »*»*. 

If  this  error  should  occur  contact  the  MAGIC 
system  analyst. 

The  row  dimension  of  TR( transformation  matrix 
for  application  of  boundary  conditions)  *  *os»». 
The  number  of  columns  of  TR  *  »#**«*.  Thi3 
should  equal  row  dimension. 

An  incorrect  matrix  was  input  in  the  .GPRINT. 
instruction. 
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GPRNT1 


The  analyst  has  asked  for  *****  eigenvalues  to 
be  printed.  Subroutine  0PR1NT  allows  a  maximum 
of  *****  values  to  be  printed  -  see  a  program 
analyst  to  correct  this  error 

Subroutine  GPRINT  must  be  updated  to  allow 
more  eigenvalues  to  be  printed. 

GPRNT1  -  Error  while  processing  matrix  ****»». 

An  error  has  occurred  in  the  GPRINT  instruction 
while  processing  matrix  named. 

GPRNT1  -  The  matrix  to  be  printed  has  ******  rows  while 
TR  indicates  that  it  should  have  ******  rows. 

The  input  matrix  to  be  printed  is  incorrect  or  the 
input  transformation  matrix  is  Incorrect. 

GPRNT1  -  Eigenvector  matrix  has  *****  eigenvectors, 

while  the  eigenvalue  matrix  has  *****  eigenvalues. 

The  eigenvector  and  eigenvalue  matrices  input 
into  the  GPRINT  Instruction  are  not  compatible. 

STRES1  -  Unable  to  execute  the  STRESS  module.  The  work 

array  contains  ********  words,  and  ********  words 
are  needed  to  process  the  maximum  element. 

There  Is  not  enough  work  storage  to  calculate 
the  stresses  for  all  elements.  The  variable 
NWORK  must  be  updated  In  subroutine  MP.ES. 

STRES2  -  Stresses  for  element  type  ***»*,  are  not  available 
proceeding  to  next  element. 

The  STRESS  module  has  not  been  updated  to  handle 
this  element  type.  The  MAGIC  system  analyst  should 
be  contacted  if  this  error  message  occurs. 


SECTION  3- 

CHEK 

CONTRL  - 

CONTRL 

CONTRL  - 

DEFLEX  - 

DEFLEX  - 

DEFLEX  - 


.USER04.  ERROR  MESSAGES 


Input  section  ****  ha3  not  been  found.  This 
input  section  is  required  for  generation  of 
the  following  matrices. 

The  named  matrices  cannot  be  generated  due  to 
the  omission  of  the  specified  input  section. 

System  information  card  missing.  Cannot  allocate 
storage. 

All.  input  data  decks  must  have  SYSTEM  section 
to  allocate  storage  for  processing  of  input. 

System  information  card  missing.  Cannot 
allocate  storage. 

The  SYSTEM  card  is  missing  from  the  report 
form  input  deck. 

$END  card  encountered  while  heading  .USER04 . 
input,  indicating  absence  of  end  or  check  card. 
Check  card  will  be  inserted. 

END  or  CHECK  card  missing  from  report  form  input 
deck. 

.USER04.  Module  unable  to  locate  matrix  »«*#*». 

Tho  system  is  unable  to  locate  a  matrix. 

Matrix  ******  dots  not  qualify  as  an  input 
displacement  matrix  for  the  .USER04.  module. 
Dimensions  are  *****  by  *****  and  should  be 

e»§»»  by  *****. 

The  input  displacement  matrix  used  to  calculate 
incrementals  is  cf  the  wrong  order. 

Matrix  ******  does  not  qualify  as  an  input 
displacement  or  stress  matrix. 

The  input  matrix  used  to  calculate  incrementals 
is  of  the  wrong  order.  If  the  matrix  w as  a 
stress  matrix  then  It  must  have  been  generated 
using  the  .STRESS,  abstraction  instruction. 
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ELEM 


ELEM 


ELEM 


ELEM 


ELEM 


Element  control  error  in  subroutine  ELEM. 

Element  number  ****  calls  plug  number  ***. 

Plug  number  should  be  greater  than  zero. 

Execution  terminated. 

All  element  type  code  numbers  are  greater  than 
zero.  Proper  element  type  cannot  be  selected. 

Element  control  error  in  subroutine  ELEM. 

Element  number  *****  has  material  number  *****. 
Material  identification  must  be  different  from 
zero. 

Execution  terminated. 

Self-explanatory. 

Element  control  error  in  subroutine  ELEM.  Element 
number  *****  has  number  of  grid  points  =  ***. 

Number  of  grid  points  must  be  greater  than  zero 
and  no  greater  than  eight.  Execution  te**minated . 

Self  explanatory. 

Element  control  error  in  subroutine  ELEM.  Element 
number  *****  has  number  of  input  points  =  **. 

Number  of  input  points  must  be  position. 

Execution  terminated. 

Self-explanatory. 

Input  error  in  subroutine  ELEM.  Element  node 
point  is  negative  or  zero  in  element  number  ****** 

No  element  defining  point  nunber  may  be  negative 
and  only  mid-points  may  be  zero. 
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ELEM 


Input  error  in  subroutine  ELEM,  after  inter¬ 
polation  value  of  Young’s  Modulus  equals 
+,»#»##«#»  +  «»  in  material  number  »»**»*, 

Value  should  be 

greater  than  1.0.  Execution  terminated. 

Self-explanatory . 

ELEM  -  Input  error  in  subroutine  ELEM,  after  inter¬ 

polation  Poisson  value  equals  +.»*#####*E 
+  **  in  material  number  ******,  #*######*###****######«# 
Value  should  be  greater  than  -1.0  and  less  than 
1.0.  Execution  terminated. 

Self-explanatory . 

ELEM  -  Input  error  in  subroutine  ELEM,  after  inter¬ 

polation  thermal  coefficient  values  equals 
+.»***##»*£  +•**  in  material  number  »»**»#, 

T# »*###»####* a######**#*.  Value  should  be 
greater  than  -1.0  and  less  than  1.0.  Execution 
terminated. 

Self-explanatory . 

ELEM  -  Input  error  in  subroutine  ELEM,  after  inter¬ 

polation  rigidity  value  equals  +  ,»»**»#*»e 
+  »»  in  material  number  *«**»*,  a###*###***######**##*#* 
7alue  should  be  greater  than  1.0.  Execution 
terminated. 

Self-explanatory. 

ELEM  -  Input  error  in  subroutine  ELEM.  Mass  density 

value  equals  +  .  XXXXXXXXE  +  »»  in  material 

number  ******7  »«»****»#*»*#*«»#»#»####.  Value 
should  be  greater  than  zero.  Execution  terminated. 

Self-explanatory . 

ELEM  -  Input  error  in  subroutine  ELEM.  Value  of 

IP  «  ***,  value  of  IPRE  »  **#  for  element  number 
one.  Request  to  repeat  data  from  element  previous 
to  first  element  is  Illogical.  Execution 
terminated, 

IP  and  IPRE  cannot  be  negative  for  first 
element . 


6.19 


i 

i 


ELEM 


ELEM 


ELEM 


ELPLUG 


FMAT 


FMAT 


FMAT 


Input  error  in  subroutine  ELEM.  Element  number 
•«««*»  is  defined  by  node  points  for  which  no 
coordinates  have  been  input.  Calculation  of 
material  temperature  impossible.  Execution 
terminated. 

Self  explanatory. 

Cannot  locate  material  library. 

The  system  cannot  locate  the  material  library 
matrix. 

Material  error  in  subroutine  ELEM.  Material 
number  ******  was  not  located  on  material 
tape.  Execution  terminated. 

The  specified  material  number  was  not  available 
in  the  material  library. 


Input  error  for  element  number  *  x  }{ 
element  type  x  x  x,  element  grid 
points  **  *  *  x  x  x’x  x  x  x  »t  x 


Input  error  in  subroutine  FMAT.  Material 
number  «»****,  *#######*###*#*#*##*####. 

Number  of  material  temperature  points  is  **. 
Number  of  plastic  temperature  points  is  **. 
Number  of  temperature  points  in  either  case 
cannot  exceed  9»  Execution  terminated. 

Self  explanatory. 

Input  error  in  Subroutine  FMAT.  Mass  density 
value  equals  +****»#«*  +  **  in  material  number 
»»»*>  Value  should 

be  non-negative.  Execution  terminated. 

Self-explanatory. 

Input  error  in  subroutine  FMAT.  Poisson  value 
equals  +  .********  +  **  in  material  number 

Value  should 

be  greater  than  -1.0  and  less  than  1.0. 

Execution  terminated. 

Self-explanatory . 


6.20 


FMAT 


FMAT 


FMAT 


FMAT 


FMAT 


FMAT 


FMAT 


Input  error  in  subroutine  FMAT.  Rigidity  value 
equals  +  .  in  material  number 

•«*»»», Value  should 
be  greater  than  1.0.  Execution  terminated. 

Self-explanatory . 

Input  error  in  subroutine  FMAT.  Thermal 
coefficient  value  equals  +  . #####***e  +  ** 
in  material  number  »*»**»,  a#*##*###*##**#####*##### 
Value  should  be  greater  than  -1.0  and  less  than 
1.0.  Execution  terminated. 

Self-explanatory . 

Input  error  in  subroutine  FMAT.  Value  of 
Young’s  modulus  equals  +  . **#**##*E  +  *# 
in  material  number  **##*#, 

Value  should  be  greater  than  1.0. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Attempt 
to  delete  material  number  ******  using  lock 
code  **.  Incorrect  lock  coup,  request  ignored. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Attempt  to 
delete  material  that  was  not  on  material  tape. 
Material  number  *##»*#.  Material  identification 
is  Input  code  is  ***. 

Request  ignored. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Attempt  to 
revise  material  number  ******  using  lock  code  **. 
Input  lock  code  does  not  match  tape  lock  code 
for  this  material.  Revisions  or  deletions  not 
allowed  without  proper  lock  code.  Execution 
terminated. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Additions 
requested  exceed  capacity  of  material  tape. 

Maximum  number  of  materials  cannot  exceed  ***. 

Self-explanatory. 
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FMAT 


FMAT 


FMAT 


FMAT 


FMAT 


FORMIN 


FORMIN 


Error  message. from  subroutine  FMAT.  Request 
for  print  of  material  that  was  not  on  tape. 

Material  number  »»«***.  Material  identification 
is  input  code  is 

*»*.  Request  ignored. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Unrecognizable 
data  input  code.  Legal  codes  are  PI,  PO,  I. 

0,  P,  OUT,  ALL,  SEE,  SUM.  Material  number 
««*»**.  Material  identification  is 

Input  code  is  ***. 

Execution  terminated. 

Self-explanatory . 

Error  message  from  subroutine  FMAT.  Number 
of  requests  received  is  aero. 

Number  of  requests  must  not  bs  zero.  Value  of 
zero  indicates  improper  operation  of  program. 

Error  message  from  subroutine  FMAT.  Attempt  to 
input  plastic  data  only  for  material  which  was^ 
not  on  tapo.  Material  number  #*####.  Materia^ 
identification  Is  w*!******^*******^**^*****.  - 

Input  code  is  ###.  Request  ignored. 

Usage  of  an  input  code  of  "P"  requires  that  the 
material  to  be  revised  already  exists  In  the 
material  library. 

New  material  tape  not  generated.  All  revisions 
and/or  deletions  requested  by  this  case  have 
been  Ignored. 

Due  to  a  previous  error,  generation  of  a  new 
material  library  has  been  abandoned.  Execution 
will  be  terminated. 

Unexpected  label  card  read  -  point  »**»*. 

Input  section  label  card  encountered  while 
reading  table  form  input.  Point  reflects  entry 
now  being  processed. 

Repeat  for  first  point  ignored. 

Repeat  option  on  table  forms  of  report  form 
input  cannot  'oe  used  for  first  -value  entered. 


i 
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FRED  -  There  is  a  mistake  in  the  coordinates  for  this 

transformation,  we  will  calculate  the  remaining 
in  spite  of  this. 

An  error  has  occurred  in  generating  a  grid  point 
axes  transformation  matrix.  Execution  will" 
continue. 

F6211  -  The  integral  of  (LN(A+B*X)/X)  DX  is  not  allowed 

for  A+B*X*0.  A  «  +.******E  +  *»., 

B  *  +  .**»»***£  +  T»t  x  =  +  ,**»****E  +  »« 

Natural  log  of  zero  is  undefined. 

INDECK  -  .USER04.  input  matrix  ******  is  not  a  valid 

deck  (word  count  error). 

The  specified  matrix  does  not  qualify  as  a 
valid  interpreted  input  deck. 

INDECK  -  .USER04.  input  matrix  ******  is  not  a  valid  deck 

(compression  error). 

The  specified  matrix  does  nc\t  qualify  as  a  valid 
interpreted  input  deck. 

INPUT  -  Input  error,  number  of  directions  of  grid  points 

not  equal  to  number  of  directions  of  transformation 
matrix.  Execution  terminated. 

Order  of  grid  point  axes  transformation  matrices 
must  be  equal  to  three. 

INPUT  -  Input  error,  number  of  reference  points  input 

exceeds  ****. 

Program  cannot  accommodate  more  than  the  given 
number  of  input  points. 

INPUT  -  Label  card  error  ******* 

Input  card  read  should  have  been  label  card. 
Execution  will  be  terminated. 

LOG!  LO  -  Logical  input  error  -  matrix  ******  cannot  be 

generated  by  .USERO^.  module  due  to  suppression 
of  fourth  input  matrix.  Execution  phase  suppressed. 
Input  processing  continuing. 

The  incremental  matrices  cannot  be  generated 
because  the  input  displacement  or  stress  matrix 
has  been  suppressed. 


PDISP 


PHASE 1 


PHASE1  - 


PHASE1  - 


PHASE1 


PHASE 1 


PHASE 1  - 


PHASE1 


Input  section  »»***«  matrix  not  generated  due 
to  prescribed  displacement  conditions  .NE.  1 
and  .LT.  Load  conditions  input. 

The  Prescribed  Displacement  matrix  has  not  been 
generated  because  of  an  illegal  combination  of 
external  load  conditions  and  prescribed  displace¬ 
ment  conditions. 

Unexpected  blank  label  card  encountered. 

Card  read  should  have  contained  an  input  section 
label.  Input  processor  will  attempt  to  continue. 

No  option  has  been  selected  for  request  number 
*»#  of  material  library. 

Self-explanatory . 

More  than  one  option  has  been  selected  for 
request  number  *#*  of  material  library.  Only 
the  first  selection  will  be  retained. 

Self-explanatory . 

Maximum  number  of  load  conditions  allowed  Is 
100.  This  problem  contains  ##*». 

Self-explanatory . 

Load  condition  *#*  sub-label  is  incorrect. 

Program  cannot  distinguish  between  load  conditions. 

Load  condition  sub-label  in  report  form  input 
Is  in  error. 

Illegal  MODAL  card  encountered.  Card  will  be 
ignored . 

A  MODAL  card  has  been  found  while  reading  an 
input  section  for  which  no  MODAL  card  has  been 
defined. 

Due  to  previously  encountered  error  condition 
this  section  is  being  skipped.  Program  will 
flush  data  deck  until  next  recognizable  input 
section  is  encountered. 
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PHASE 1 


Unrecognizable  input  section. 


PHASE1  - 


PHASE2 


PHASE2 


PHASE2 


PHASE2 


PHASE2 


PHASES 


Input  section  label  has  been  read  which  is 
undefined  in  input  processor. 

Due  to  above  error  message  this  section  will 
be  omitted  and  check  card  inserted. 

Self-explanatory . 

Number  of  entries  read  for  this  section,  *****, 
does  not  agree  with- number  that  was  to  be  read, 
*****.  Actual  number  read  will  be  used. 

Self-explanatory . 

This  section  has  either  been  omitted  or  flushed 
by  phase  one  error.  In  either  case  this  section 
is  considered  ’critical  and  execution  will  not 
be  allowed. 

Self-explanatory. 

Due  to  the  omission  of  this  section  the  following 
sections  may  be  ignored  -  ******  ******  ******  ... 

The  final  processing  of  certain  sections  requires 
data  from  other  sections  which  by  omission  or 
other  input  error  are  not  present. 

This  section  is  to  be  merged  with  ******  and 
******  for  which  values  have  been  assigned  by 
both  for  point  number  ******  Two  values  cannot 
be  assigned  to  the  same  point.  Neither  value 
will  be  used. 

Self-explanatory . 

This  section  is  to  be  merged  with  ******  and 
******  for  which  modal  cards  have  been  encountered 
for  both.  Two  values  cannot  be  assigned  to  the 
same  point.  Both  modal  cards  will  be  ignored. 

Self-explanatory . 

Number  of  elements  read  *****  is  greater  than 
9999*  Number  of  elements  will  be  set  at  9999 ♦ 

Self  explanatory,  execution  will  be  suppressed. 
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PHASE2 


No  end  or  check  card  has  been  found.  Check 
card  Will  be  inserted.,  suppressing  execution. 

Self-explanatory . 


PHASE2 


PHASE2 


PLUG1 


PLUG  5 


PLUGS 


PRINTS  - 


P7?RT 


Due  to  above  error  condition  check  card  will 
be  inserted.  Execution  will  be  suppressed. 

Self-explanatory . 

Internal  tape  error  has  occurred.  Processing 
abandoned. 

Report  form  input  preprocessor  cannot  retrieve 
information  stored  on  a  scratch  data  set. 

Value  of  sin  (alpha)  is  zero  -  run  terminated. 

Element  defining  points  are  in  error  for 
Quadrilateral  Thin  Shell  Element. 

For  I  3  XX  and  N  »  XX  integral  does  not  converge. 

No  convergence  has  been  obtained  for  the  given 
integral  calculated  by  the  Romberg  technique 
in  the  Toroidal  Ring  Element. 

Maximum  number  of  iterations  reached  in  Romberg 
integration  routine. 

Convergence  was  not  obtained  in  15  iterations 
for  an  integral  In  the  toroidal  thin  shell  element. 
Processing  will  continue,  using  15  iteration 
result. 

Toroidal  ring  element  with  coordinates 

R1  ■  +  .  +  *»,  R2  »  +  .«*#**#**£  +  **, 

Zi  ■  +  ,»ooo#e  +~**,  Z2  -  +—.*»*»**»*  +  T* 
is  not  diagonally  cTominant  an?  should  be  subdivided. 

Element  stiffness  matrices  must  be  diagonally 
dominant. 

PLUG7  error  -  third  point  to  define  plane  was 
not  given  -  input  error. 

Three  element  defining  points  are  required  for 
the  frame  element,  the  third  supplying  definition 
of  the  plane. 


6.2o 


TRAIC 


US04A 


ySQJJA 


USG4A 


USOHA 


US04A 


tfSpliA 


Subroutine  MINV  has  determined  array  GAMABQ 
to  be  singular,  execution  terminated  by 
subroutine  TRAIC. 

Transformation  matrix  to  system  coordinates  in 
triangular  cross-section  ring  element  cannot  be 
inverted,  usually  because  three  element  defining 
points  do  not  define  a  triangle. 

Available  scratch  data  sets  ****  is  less  than 
the  required  *J. 

The  .USER04.  module  requires  at  least  four 
scratch  data  sets.  The  addition  of  more  data 
sets  is  required  by  the  program-. 

Input  routine,  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
processing  input. 

Report  routine  core  storage  required  ****** 
exceeds  that  available  ******  ■ Co  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
processing  report  form  input  data. 

Grid  point  loads  matrix  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  grid  point  loads  matrix. 

Reduction  of  transformation  mati’ixes  storage 
******  exceeds  that  available  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  reduction  transformation  matrix. 

Element  generation  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
generation  of  element  matrices. 


USOAA 


US04A 


U304A 


US04A 


US04A 


US04A 


US04A 


US04B 


Assembly  transformation  matrix  size  ****** 
exceeds  limit  ******  of  MAQIC  system. 

Self-explanatory. 

Grid  point  load  matrix  size  »»****  exceeds 
limit  ******  of  MAGIC  system. 

Self-explanatory . 

Reduction  transformation  matrix  size  ****** 
exceeds  limit  ******  of  MAGIC  system. 

Self-explanatory . 

Stiffness  matrix  size  ******  exceeds  limit  of 
MAGIC  system. 

Self-explanatory . 

Stress  matrix  size  ******  exceeds  limit  ****** 
of  MAGIC  system. 

Self-explanatory . 

Number  elements  size  ******  exceeds  limit  ****** 
of  MAGIC  system. 

Self-explanatory . 

Output  matrix  ******  will  be  a  duplicate  of 
input  matrix  ******. 

The  user  is  saving  the  interpreted  Input  deck 
when  he  already  has  an  interpreted  Input  matrix. 

Element  sort  routine  core  storage  required  ****** 
exceeds  that  available  ******  to  displacement 
method  matrix  generator. 

Blank  common  work  area  is  not  large  enough  for 
output  of  generated  matrices. 
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APPENDIX  VII 


EXAMPLE  STATIC  AND  STABILITY  INSTRUCTION  SEQUENCES 


A.  STATICS  ANALYSIS  INSTRUCTION  SEQUENCE 

1  7  Columns 

GENERATE  ELEMENT  MATRICES 

,MAT, ,XLD,TR, , KEL , FTEL , SEL , STEL , , ,SC,EM,=, , , .USERQ4. 

ASSEMBLE  ELEMENT  STIFFNESS  MATRICES 

KELA  =-  EM .  ASSEM .  SC , ( 1 ) 

ASSEMBLE  ELEMENT  APPLIED  LOAD  MATRICES 

FTELA  =  EM.ASSEM.SC,  (ij) 

REDUCE  ASSEMBLED  STIFFNESS  MATRIX 

KO,  KNO  =  KELA  .DL'JOIN.  (SC(5,1),1) 

KCO,  STIFF  =  KNO  .DEJOIN.  (SC(5,1)»0) 

PRINT ( FORCE , DISP , , )  STIFF 

EXTRACT  LOAD  SCALAR  AND  APPLY  TO  ELEMENT  LOADS 

LSCALE, LOADS '*=  XLD  .DEJOIN  .  (1,1) 

FTELS  =  FTELA  .MULT.  LSCALE 

TRANSFORM  EXTERNAL  LOADS  TO  0-1-2  ASSEMBLED 
S‘  STEM  AND  FORM  TOTAL  LOAD  COLUMNS 

LOADO  =  TR  .MULT.  LOADS 
TLOAD  -  LOADO  .ADD.  FTELS 
TLjTLOADR  =  TLC-AD  .  DEJOIN.  (SC(5,1),1 

SOLVE  FOR  DISPLACEMENTS 


7.1 


OOO  O  O  OOO  O  CO  oooo  ooo  ooo 


XX  «  STIFF. SEQEL.TLOADR 
TR0,TR12  »  TR. DEJOIN. (SC(5,1),1) 

X  *  TR12.TMULT.XX 
XO  «  TR.MULT.X 

SOLVE  AND  PRINT  ELEMENT  STRESSES  AND  FORCES 

STRESP  «  EM,  XO,. STRESS.  (4,) 

FORCEP  *  EM,  XO,. FORCE.  (4,) 

SOLVE  FOR  SYSTEM  REACTIONS 

REACTS  =  KELA.MULT.XO 
REACTP  ■  REACTS. SUBT.TLOAD 

PRINT  ELEMENT  APPLIED  LOADS,  EXTERNAL  LOADS, 
DISPLACEMENTS  AND  REACTIONS  IN  ENGINEERING  FORMAT 

G PRINT ( 4 , , ,FX . FY .FZ .MX . MY . MZ , SC ,TR )  FTELA 
GPRINT ( 4 , , ,FX . FY . FZ . MX . MY . MZ , SC , )  LOADS 
G PRINT ( 2 , , ,U . V . W . THETAX . THETA Y . THETAZ , SC , )  X 
GPRINT ( 1 , , ,FX . F Y . FZ . MX . MY . MZ , SC ,TR )  REACTP 


STABILITY  ANALYSIS  INSTRUCTION  SEQUENCE 


GENERATE  ELEMENT  MATRICES 

, MAT , INTP , LXD , TR , , KEL , FTEL , SEL , STEL , , ,SC,EM,«, , , .USER04 . 

ASSEMBLE  ELEMENT  STIFFNESS  AND  ELEMENT  LOAD  MATRICES 

KELA  »  EM.ASSEM.SC, (1) 

FTELA  *  EM.ASSEM.SC ,  (  4) 

RErUCE  ASSEMBLED  STIFFNESS  MATRIX 

KO , KNO  *  KELA. DEJOIN. (SC( 5,1), 1) 

KCO, STIFF  *  KNO.DEJOTN.  (SC(5,1),0) 

FRINT (FORCE, DISP. , , ) STIFF 

EXTRACT  LOAD  SCALARS  AND  APPLY  TO  ELEMENT  LOADS 

LSCALE, LOADS  *  XLD. DEJOIN. (1,1) 

FTELS  *  FTELA. MULT. LSCALE 


7.2 


I 


o  o  o  o  ooo  ooo  ooo  ooo  o  o  o  o  o  ooo 


c 

c 


SOLVE  FOR  TOTAL  LOADS 

LOADO  *  TR. MULT -LOADS 

TLOAD  «  LOADO . ADD . FTELS 

TL,TLOADR  »  TLOAD. DEJOIN. (SC(5,1) ,1) 

CREATE  FLEXIBILITY  MATRIX 


i 

i 


t 


\ 

t- 


f 

\ 

t 

I 

t 


FLEX  »  STIFF. INVERS. 
PRINT(DISP, FORCE, , )FLEX 


SOLVE  FOR  DISPLACEMENTS 

XR  *  FLEX. MULT. TLO ADR 

TRO jTR12  «  TR.DEJ0IN.(SC(5,1),1) 

X  =  TR12.TMULT.XR 

XO  «  TR.MULT.X 


SOLVE  FOR  ELEMENT  STRESSES 
STRESS  *  EM, XO. STRESS.  (4.) 

GENERATE  ELEMENT  INCREMENTAL  STIFFNESS  MATRIX 
,,,,,,, ,>,NEL,,,£L,  *  ,INTP, , STRESS. USER04. 
ASSEMBLE  AND  REDUCE  INCREMENTAL  MATRICES 


INCRA  *  EL.ASSEM.SC, (3) 

10 , INO  «  INCRA. DEJOIN. (SC(5,1),1) 
ICO,INCR  -  INO. DEJOIN. (SC(5,1),0) 
PRINT (,,,)INCR 

CREATE  EIGEN  MATRIX 


EIG  *  FLEX. MULT. INCR 
PRINT( , , , }EIG 

CALCULATE  AND  PRINT  E-VALUES  AND  E-VECTORS 

EVALUE , EVECTR , ,  «  EIG, . EIGEN1. (5, , , ) 

G PRINT ( 3 , , , , SC ,TR1 2 ) EVECTR , EVALUE 

PRINT  ELEMENT  APPLIED  LOADS,  EXTERNAL  LOADS,  AND 
DISPLACEMENTS  IN  ENGINEERING  FORM 

GPRINT ( 4 , , ,FX . FY . FZ . MX . Mi . MZ , SC ,TR )  FTELA 
GPRINT(4,,, FX.FY.FZ.MX.MY.MZ.3C,)  LOADS 
GPRINT ( 2 , , , U . V . W . TKETAX . THETA Y . THETAZ , SC , )  X 
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APPENDIX  VIII 


SUBROUTINE  DOCUMENTATION 


Subroutine  Page  No 

AOENDM . 8.  12 

AI  . 8.256 

AJ  . 8.305 

AK  . 8.299 

AKNZ  . .  8.  89 

AM  . 8.300 

ANALIC . 8.  97 

APRT  . 8.332 

ASMAIC . 8.110 

ASMPIC . 8.113 

ASSEM  . . . . 8 .  ^8 

ASSEMC . 8.  50 

ASSEMS . 8.  51 

ASSY2 . 8.314 

AXTRA1 . 8.437 

AXTRA2  .  .....  8.225 

AXTRA3 . 8.439 

BACK  . 8.141 

BOB  . 8.229 

BCB12 . 8.421 

BDEP  . 8.458 

BEQSX  . . 8.  93 

BINT  . 8.298 

BMATRX . 8.390 

BOUND . . . 8.161 

CCB  . 8.337 

UC1  . . 8.257 

CC2  . 8.274 

CC21  . 8.241 

CDELPQ . 8.246 

CDF  . 8.279 

CDFX  . .  8.280 

CDFY  . 8.281 

CDM  . 8.261 

CECC  . . . . 8.293 

CFFTS . 8.282 

CFFV  . 8.284 

CFMASS  .  ........  .  8.285 

CFMTS . .  8.262 

CFMV  . .  8.264 

CFP  . 8.275 

CFPB  . . . 8.276 

CHDEL1 . 8.247 

CHEK  . 8.201 


Subroutine 


Page  No. 


CK11 

CK22 

CK2  6 

CMASS 

CMMASS 

COEP 

COLMRD 

COLREP 

CONTRL 

COPYDK 

CSTF 

CSTM 

CTCQ 

CTGB 

CTGRB 

CTGRM 

CTOGB 

CTOGM 

CTS 

CT11 

DCD 

DECODE 

DECOMP 

DEPLEX 

DEJNC 

DEJNR 

DEJOIN 

DIRCOS 

DISPIC 

D1SPL1 

DISPMT 

DISPPR 

DMATRX 

DPQINT 

DSPCIC 

DTAPR 

EIG 

EIGB 

EIGPPR 

EIG1 

ELEM 

ELMAT 

ELPLUG 

ELPRT 

ELREAD 

ELTEST 


.  8.250 
.  8.266 
.  8.500 
.  8.456 
.  8.258 
.  8.306 
.  8.  72 
.  8.  42 
.  8.153 
.  8.154 
.  8.277 
.  8.259 
.  8.292 
.  8.269 
.  8.273 
.  8.256 
.  8.272 
.  8.255 
.  8.291 
.  8.253 
.  8.315 
.  8.  76 
.  8.138 
.  8.212 
.  8.  47 
,  8.  46 
.  8.  44 
.  8.418 
.  8.117 
.  8.  81 
.  8.473 
.  8.  78 
.  8.391 
.  8.324 
.  8.115 
.  8.317 
.  8.  40 
.  8.  39 
.  8.  79 
.  8.  35 
.  8.163 
.  8.450 
,  8.218 
.  8t44i 
.  8.  68 
.  8.234 
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EPRINT 

EPflT 

ERIC 

ESCONT 

EXPCOL 

EXFSIX 

PARCIC 

PBMP18 

FCURL 

PELEM 

PPIOO 

FGRLDS 

PINP22 

FJAB 

FLOADS 

FMAT 

FORCE 

FORCE 1 

F0RCE2 

FORMIN 

FRED 

FREEUP 

FTELQ 

FTR 

FT26 

FWD 

F4 


F6211 

F6219 

F89 

GAHMAG 

GAMMAS 

GAMMAT 

GELS 

GENSM 

GEOMD 

GPRINT 

GPRNT1 

HARGEN 

HARGE1 

HARMA 

HDECO 

HLOGEN 

HMASSG 


8.  65 
8.347 
8.413 
8.  95 

8.354 

8.355 
8.119 
8.432 
8.393 
8.214 
8.308 
8.170 
8.435 
8.302 

8.204 
8.172 
8.  59 
8.  61 
8.  63 
S.192 
8.159 
8.  70 
8.425 

8.205 
8.504 
8.140 

8.385 

8.386 

8.387 

8.304 

8.303 

8.307 

8.471 

8.472 
8.392 
8.128 
8.498 
8.470 
8.  73 
8.  74 
8.179 
8.182 
8.181 
8.  84 

8.491 

8.492 
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Subroutine 


Page  No. 


HRAICS 

HRAIES 

HRAIKS 

HRAISS 

HSUM 

HTCO 

HTHGEN 

IDNTC 

IDNTR 

IPAC 

INCRE 

INDECK 

ININT 

INPTIC 

INPTI1 

INPUT 

INSTWT 

INST04 

INST05 

INST06 

INST07 

INST43 

INST44 

INST45 

INST56 

INST60 

KALCON 

KCALO 

KMPY 

KOBLIQ 

LAG 

LATCH 

LISTIC 

LOC 

LOGFLO 

HAB 

MABC 

MABS 

MASS20 

MATB 

MATBS 

MATCH 

MATIoO 

MATI70 

MATPR 

MATPRT 

MATSUP 

MBS 

MPSD 

MINV 

MPOWJP 

MPRD 


.  8.487 
.  8.490 
.  8.488 
.  8.489 
.  8.  83 
.  8.235 
c  8.493 
.  8.  34 
.  8.  33. 
.  8.301 
.  8.288 
.  8.152 
.  8.210 
.  8.103 
.  8.105 

•  8.155 
.  8.  10 
.  8.  13 
.  8.  14 

•  8.  16 
.  8.  18 
.  8.  20 
.  8.  22 
.  8.  24 
.  8.  26 
.  8.  28 
.  8.108 
.  8.  95 
.  8.412 
.  8.422 
.  8.169 
.  8.191 
.  8.106 
.  8.233 
.  8.14? 

.  8.22? 

.  8  .,24  2 
.  8.510 
.  8.480 
.  8.231 
.  8.511 
.  8.167 
.  8.254 
.  8.271 
.  8.318 
.  8.  80 
.  8c  30 
.  8.509 
.  8.129 
.  8.224 
.  8.474 
.  8.294 


Subroutine 


Page  No. 


MSB 

MSBB 

MSTR 

MTDS 

MULTP 

NEWFT 

NEWFT1 

NTEST 

NULL 

OPEN 

OUTINT 

OUTMAT 

PASSYM 

PDISP 

PFPTS 

PFFV1 

PFMASS 

PFMTS 

PFMV1 

PFP 

PHASE1 

PHASE2 

PKF 

PKM 

PLAS2D 

PLMX 

PLUG1 

PLUG 10 

PLUG 13 

PLUG14 

PLUG17 

PLUG18 

PLUG2 

PLUG 20 

PLUG2  2 


.  8.228 
.  8.132 
.  8.382 
.  8.130 
.  8.400 
.  8.244 
.  8.320 
.  B. 144 
.  8.  43 
.  8.200 
.  8.202 
.  8.443 
.  8.481 
.  8.198 
.  8.342 
.  8.344 
.  8.313 
.  8.329 
.  8.331 
.  8.339 
.  8.194 
.  8.192 
.  8.335 
.  8.325 
.  8.348 
.  8.394 
.  8.237 
.  8.452 
.  8.465 
.  8.398 
.  8.414 
.  8.427 
.  8.309 
.  8.467 
.  8.433 


PLUG23 

PLU025 

PLUG  5 

PLUG  6 

PLUG7 

PLUG  8 

PL6PRT 

PMMASS 

PNC1 

PNG1 

POOF 

FKINT5 

PRT1 


8.482 

8.494 

8.378 

8.350 

8.286 

8.403 

8.377 

8.312 

8.345 

8.346 
8.401 
8.397 
8.265 


8.5 


Subroutine 


Page  No 


PSTF 
PSTM 
PTBF 
PTBM 
PTFGS  . 
PTMGS  . 
PUTL4  . 
PUTL5  . 
P1PRTA  . 
P10FP  « 
PIOTM  . 
P14PRT  . 
P1718M  . 
P20FP  . 
P20FT  . 
P7PRT  . 
PoMASS  . 
QUADI  . 
RDCLOCK. 
REACTP  . 
RECTIC  . 
RECl 
REC3 
REC4 
REFORM  . 
REGE2  . 
REPLAS  . 
BOMBER  . 
SCRLM  . 
SELQ 
SHIFT  . 
SINVIC  . 
SIZEIC  . 
SOLVE  . 
SQUISH  . 
STORIC  . 
STRCIC  . 
STRESS  . 
STRES1  . 
STRESS  . 
STRPRT  . 
STRPIC  . 
STRSIC  . 
STRS26  . 
SUBINT  . 
SUMDIS  . 
SUMSTR  . 
SYMPRT  . 
SZAL26  . 


8.340 

8.327 

8.349 

8.322 

8.334 

8.323 

8.8 

8.9 

8.248 

8.461 

8.459 

8.402 

8.423 
8.476 
8.478 
8.289 
8.406 
8.388 
8.134 
8.77 
8.122 
8.145 
8.221 
8.222 
8.184 
8.37 
3.82 

p .  3R/1 

8.395 

8.424 
8.178 
8.131 
8.99 

8.396 
8.216 
8.101 
-8.125 
8.53 
8.55 
8.57 
8.67 
8.127 
8.123 
8.507 
8.408 
8.86 
8.85 
8.232 
8.506 
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Subroutine 


TCONTX 

TESTJ 

TPPPRT 

TFSPRT 

TFTPRT 

TIEPRT 

TIKPRT 

TIMER 

TIMPRT 

TISPRT 

TPRD 

TRAAE 

TRAIC 

TRAIE 

TRAIFP 

TRAIFS 

TRAIFT 

TRAIK 

TRAIM 

TRAIS 

TRAIST 

TRAITS 

TRCPRT 

TR18ST 

TSTPRT 

TSUM 

TSYS 

TTRI 

TT3PRT 

TUDJAC 

TXOUT 

UN1TNM 

US04 

US04A 

US043 

US  461 

US  462 

US  463 

VOL 

WAVEFM 

WCLOCK 

XCALK 

ZMRD 

ZTRD 


Page  No. 

8.  90 

8.357 

8.364 

8 . 374 
8.3  66 
8.360 

8.362 

8.135 

8.372 
8.368 
8.295 
8.469 
8.356 
8.359 

8.363 

8.373 

8.365 
8.361 
0.371 
8.367 

8.375 

8.369 

8.358 
8.431 

8.376 
8.  32 
8.206 
8.  91 

8.370 
8.502 
8.477 
8.107 
8.142 
8.149 
8.208 
8.446 

8.448 

8.449 
8.455 

8.136 
8.133 
8.  94 

8.410 

8.411 
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1.  Subroutine  Name:  PIJTL4 

2 .  Purpose; 

This  routine  converts  an  array  of  B  C  D  characters  into  an 
array  containing  a  valid  matrix  name  with  an  appropriate  sign 
addended. 

3.  Equations  and  Procedures: 

The  array  to  contain  the  valid  matrix  name  is  first  filled  with 
BCD  blanks.  Next  all  blank  characters  are  compressed  out  of  the 
array  which  is  to  be  converted  to  a  matrix  name.  If  the  first 
location  of  the  input  array  contains  a  B  C  D  plus  sign  or  a 
BCD  minus  sign,  an  appropriate  flag  is  initialized.  The  first 
location  of  the  input  array  is  then  checked  against  an  array  con¬ 
taining  all  the  alphabetic  characters.  When  a  match  is  found,  all 
the  characters  of  the  input  array  except  for  the  possible  BCD 
plus  or  B  C  D  minus  in  the  first  location  are  placed  on  the  output 
array.  If  a  slash  is  encountered  a  utility  routine  is  called  to 
determine  the  subscript.  The  subscript  is  then  placed  on  the 
seventh  location  of  the  output  array.  An  integer  one  is  placed 
in  the  eighth  location  of  the  output  array.  If  a  slash  is  not 
found,  an  integer  plus  one  or  a  minus  one  is  placed  in  the 
seventh  location  of  the  output  array.  Finally  an  integer  zero 
is  placed  in  the  eighth  location  of  the  output  array. 

4.  Input  Arguments: 

N  -  length  of  CARD  array 

CARD  -  array  of  B  C  D  characters  to  be  converted  to  a  new  name 

5*  Output  Arguments: 

XNAME  -  an  eight  character  name  with  a  sign  in  the  seventh 

position  and  an  integer  one  or  zero  in  the  last 

position 

ERROR  -  logical  flag  Indicating  presence  of  an  error 

6.  Error  Returns: 

If  the  first  character  of  the  matrix  name  excluding  the  possible 
BCD  plus  of  B  C  D  minus  is  not  an  alphabetic  character,  an 
error  condition  results.  Also  if  the  matrix  name  is  longer  than 
six  characters  long,  an  error  condition  results. 

7 •  Calling  Seq uence : 

PUTL4  (CARD,  XNAME,  N,  ERROR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  Required: 

PUTL1 

PUTL5 
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1.  Subroutine  Name:  PUTL5 


2,  Purpose: 

This  routine  extracts  the  subscript  of  a  matrix  name 
3‘  Equations  and  Procedures: 

The  abstraction  instruction  card  is  scanned  beginning  in  the 
first  card  column  follow  the  first  slash  after  a  matrix  name. 

The  scan  continues  until  a  second  slash  is  encountered.  The 
number  of  nonblank  characters  :is  counted.  This  sub-field  should 
contain  a  one  to  four  digit  decimal  integer.  A  utility  routine 
is  called  which  converts  this  sub-field  to  a  binary  integer. 
Control  is  then  returned  to  the  calling  routine. 

4 .  Input  Arguments: 

CARD  -  an  array  containing  the  last  card  image 

LIMIT  -  length  of  the  array  containing  the  card  image 

5 .  Output  Arguments : 

ERROR  -  logical  flag  indicating  the  presence  of  an  error 

INTG  -  binary  integer  is  in  this  case  the  subscript  of  the 
matrix  name 

6.  Error  Returns: 

An  error  condition  occurs  when  the  second  slash  cannot  be  located 
or  when  no  digits  can  be  found  between  the  slashes. 

7.  Calling  Sequence: 

PUTL5  (CARD,  INTG,  LIMIT,  ERROR) 

8.  Input  Tapes:  None 

9 .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  Required: 

PUTL3 
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Subroutine  Name:  INSTWT 


Purpose: 


This  routine  writes  the  looped  instructions  on  the  preprocessor 

utility  data  set  NPREP. 

3 .  Equations  and  Procedures : 

a.  Algorithm 

The  coded  looped  instructions  in  the  working  storage  array 
is  analyzed  and  stored  in  a  temporary  array,  decoded. 
Subscripts  of  matrix  names  are  incremented  if  necessary. 

Then  the  matrix  names  and  their  subscripts  are  stored  in 
the  temporary  arr  Scalars  are  packed  and  stored  in  the 
temporary  array.  j.ne  temporary  array  is  written  on  the 
preprocessor  scratch  data  set  NPREP.  This  process  is 
repeated  for  all  the  instructions  in  the  range  of  the  REPEAT 
loop  and  repeated  for  all  the  Instructions  in  the  range  of 
the  REPEAT  loop  and  this  sequence  of  instructions  is  repeated 
the  specified  number  of  times.  Finally,  when  the  REPEAT 
loop  is  satisfied,  the  loop  flag  is  set  back  to  .FALSE. 

^ •  Input  Arguments: 

IRUFER  -  working  storage  array  containing  the  analyzed 

instructions  within  the  range  of  the  REPEAT  loop 

ITEMP  -  temporary  array  containing  the  record  to  be  written 
on  the  preprocessor  scratch  data  set  NPREP 

NOSTAT  -  the  number  of  statement?  in  the  range  of  the  REPEAT 
loop 

NTIMEo  -  the  number  of  times  the  sequence  of  looped 
instructions  is  to  be  repeated 

LOOP  -  logical  flag  indicating  whether  or  not  the 

instruction  is  in  the  range  of  the  REPEAT  loop 

NPREP  -  the  number  of  the  preprocessor  scratch  data 
set  NPREP 

p.  Output  Arguments:  None 

6.  Error  Returns:  None 


Calling  Sequence : 

INSTWT  (IBUFER,  ITEMP,  NOSTAT,  NTXMES,  LOOP,  NPREP) 

Input  Tapes:  None 
Output  Tapes : 

The  coded  lo  .ped  instructions  are  written  on  the  preprocessor 
scratch  data  set  NPREP. 


Scratch  Tapes :  None 
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11.  Subroutine  User:  INST 

12.  Subroutine  Required:  None 


1.  Subroutine  Name:  AQENDM 

2.  Purpose:  To  locate  in  the  Agendum  library  the  abstraction 
instructions  specified  by  the  user  on  the  $INSTRUCTION  control 
card  in  MAGIC. 

3.  Equations  and  Procedures:  The  name  of  the  desired  Agendum 

on  the  ^INSTRUCTION  card  is  passed  to  AGENDM  by  INST.  The 
specified  name  is  compared  against  all  available  agendum 
names  in  the  TYPE  array.  If  the  specified  option  is  a  valid 
name  then  the  agendum  library  is  searched  until  the  correct 
abstraction  instruction  sequence  is  found,  if  it  is  not  found 
an  error  occurs.  If  it  13  found  then  NPIT  is  redefined  to  be 
NSETA  and  control  is  passed  to  INST. 

4.  Input  Arguments: 

OPTION  -  agendum  name  on  .^INSTRUCTION  card 
LENOP  -  length  of  agendum  name  on  $ INSTRUCTION  card 
NPIT  -  logical  unit  number  defining  system  card  reader 

NSETA  -  logical  unit  number  defining  data  set  of 

agendum  library 
WORK  -  work  storage 

5.  Output  Arguments:  None 

6.  Error  Returns: 

ERROR  -  TRUE ,  if  the  option  specified  on  the  ^INSTRUCTION 
card  is  unavailable  or  unrecognizable. 

7.  Calling  Sequence: 

AGENDM (OPTION  T  LENOP  s NPIT , NSETA , WORK , ERROR ) 

8.  Input  Tapes: 

NSETA  -  agendum  library 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  storage  required  is  Bytes. 

12.  Subroutine  User:  INST 

13.  Subroutine  Required:  PUTL2 

111 .  Remarks :  MAGIC 
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1. 


Subroutine  Name: 


INSTO.Jf 


2.  Purpose: 

This  routine  analyzes  the  REPEAT  abstraction  instruction. 


3 .  Equations  and  Procedures: 

The  abstraction  instruction  is  scanned  starting  in  the  card 
column  following  the  left  parenthesis,  and  continuing  up  until 
a  comma  is  encountered.  This  sub-field  should  contain  a  B  C  D 
integer  specifying  the  number  of  abstraction  instructions  to  be 
included  in  the  range  of  the  REPEAT  loop.  This  BCD  integer  is 
converted  to  a  binary  integer  using  a  utility  routine.  The 
scan  continues  starting  in  the  card  column  following  the  comma, 
and  continuing  up  until  the  right  parenthesis  is  encountered. 
This  sub-field  should  contain  a  B  C  D  integer  specifying  the 
number  of  times  the  sequence  of  abstraction  Instructions  in  the 
range  of  the  REPEAT  loop  is  to  be  repeated.  A  utility  routine 
is  called  to  convert  the  BCD  integer  to  a  binary  integer. 
Finally  the  LOOP  flag  is  set  to  .TRUE. 


4. 


Input  Arguments: 


CARD 

LIMIT 

NOSTAT 

NTIMES 

LOOP 


an  array  containing  the  image  of  the  last  card  read 
intermediate  counter 

the  number  of  abstraction  instructions  to  be  repeated 

the  number  of  times  the  sequence  of  abstraction 
instructions  is  to  be  repeated 

logical  flag  indicating  the  presence  of  a  loop 


5.  Output  Arguments: 

ERROR  -  logical  flag  indicating  the  occurance  of  an  error 

6.  Error  Returns: 

An  error  condition  occurs  when  the  two  sub-fields  are  emitted 
or  when  the  comma  and/or  the  right  parenthesis  are  omitted. 


7*  Calling  Sequence: 

INST04  (CARD,  LIMIT,  NOSTAT,  NTIMES,  LOOP,  ERROR) 

8.  Input  Tapes:  None 

9 .  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  Required: 

PUTL3 
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Subroutine  Name: 


INST05 


Purpose:  To  analyze  the  EPRINT  instruction  which  is  of 

the  form: 

EPRINT (N ,  SZERO ,  NAMIN' 1  )NAMIN2 

Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  MAGIC  instruction  analyzers.  The 
card  image  with  blanks  suppressed  and  starting  one  column 
to  the  right  of  the  first  (  is  broken  Into  4  fields  as 
defined  within  successive  delimiters. 


Field  Defined  By 


Checked  For 


( 

I 

> 

) 


,  Integer  Scalar 

,  Real  Scalar 

)  Matrix  Name 

A-blank  Matrix  Name 


Each  field  is  examined  and  checked  in  turn.  Detection  of 
an  error  results  in  an  error  return.  If  the  card  image  for 
the  instruction  is  syntactically  correct,  information  required 
for  execution  is  written  on  tape  and  control  is  returned 
to  INST. 


Input  Arguments: 


NPREP 

NOPC 

INSTNO 

CARD 

NONBLK 


output  tape  number 

opcode  of  instruction  (05) 

statement  number  of  Instruction 

card  image  (starting  in  column  to  right  of 

first  (,  blanks  suppressed) 

number  of  non-blank  characters  on  card. 


Output  Arguments: 


NUMIN  -  number  of  input  matrices 

ERROR  -  error  control 


Error  Returns:  The  logical  variable  ERROR  is  set  to  .TRUE, 

if  an  error  is  detected  and  control  returns  to  INST.  Additional 
diagnostics  and  warnings  are  printed  for  Invalid  values  of 
parameters  and  illegal  suppression  of  parameters. 

Calling  Sequence: 

Call  INST.0 5 (NPREP , NOPC , INSTNO , CARD , NONBLK , NUMIN , ERROR ) 

Input  Tapes:  None 

Output  Tapes:  NPREP 
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10.  Scratch  Tapes:  None 

11.  Storage  Required: 

SYMBOL ( 4 ) 

Total  Storage  is  608^  Bytes . 

12.  Subroutine  User:  INST 

13.  Subroutine  Required: 

INSTPP 

PUTL3 

PUTL4 


14.  Remarks: 


This  is  a  special  instruction  analyzer. 


<  Subroutine  Name:  INST06 


2.  Purpose: 


This  routine  analyzes  the  PLOT  instruction. 

3.  Procedure: 

-  The  abstraction  instruction  card  is  scanned  starting  in  the 
card  column  following  the  left  parenthesis,  and  continuing  up 
until  a  right  parenthesis  is  encountered.  This  sub-field  should 
contain  a  B  C  D  integer  greater  than  zero  and  less  than  8.  This 
field  is  checked  for  validity  (PUTL3)  and  an  error  message  is 
printed  if  the  field  is  not  valid.  The  scan  continues  starting 
with  the  card  column  after  the  right  parenthesis  until  a  comma 
or  a  blank  character  is  encountered.  This  sub-field  contains 
a  matrix  name.  A  utility  routine  is  called  PUTL1!  which  checks 
the  validity  of  the  name  and  converts  this  sub-field  into  the 
proper  format.  If  the  scan  was  interrupted  by  a  blank,  the  scan 
is  terminated.  If  the  scan  was  interrupted  by  a  comma,  the 
scan  continues  in  the  first  card  column  following  the  comma  up 
until  another  comma  or  blank  is  encountered.  The  second  field 
again  should  contain  a  valid  matrix  name  and  the  matrix  name  is 
processed  in  the  same  manner  in  which  the  first  matrix  name  was 
processed.  This  process  is  repeated  at  least  three  times  or  until 
finally  a  blank  character  is  encountered  at  which  point  the  scan 
is  terminated.  If  the  PLOT  instruction  is  within  the  range  of  a 
REPEAT  loop,  the  analyzed  abstraction  Instruction  is  stored  In 
the  working  storage  array,  later  to  be  written  on  the  pre¬ 
processor  scratch  data  set  NPREP.  However,  If  the  PLOT 
instruction  is  written  in  coded  form  on  the  preprocessor  scratch 
data  set  NPREP. 

4 .  Input  Arguments: 

NPREP  -  preprocessor  scratch  data  set  —  logical  unit  number 
NOPC  -  operation  code  for  PLOT  Instruction 

ISTNO  -  instruction  number  from  abstraction  Instruction  card 

label  field 

CARD  -  array  containing  an  B  C  D  oharacter/word  of  abstraction 
instruction  card  starting  with  card  column  following 
the  left  parenthesis 

NONBLK  -  length  of  CARD  array 

LOOP  -  logical  ilt  true  then  instruction  is  in  range  of  a 

repeat  loop) 

JWORl.  -  working  storage  array 

IPNT  -  location  counter  for  working  storage  array 

5*  Output  Arguments: 

ERROR  -  error  return  indicator 

NUMIN  -  number  of  input  matrices  in  the  instruction 
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6.  Error  Returns: 

An  error  condition  occurs  when: 

a)  an  invalid  character  in  a  matrix  name 

b)  wrong  SYNTAX 

c)  number  of  matrices  not  correct  for  value  of  input  integer 

d)  invalid  character  or  value  in  integer  field 

7.  Calling  Sequence: 

INST06  ( NPREP , NOPC , ISTNO , CARD , NONBLK , MUMIN , ERROR , LOOP , IWORK , IPNT ) 

8.  Subroutine  User:  INST 

9 .  Subroutine  Required: 

PUTLlJ 

PUTL3 


Subroutine  Name: 


INST07 


Purpose:  To  analyze  the  GPRINT  Instruction  which  is  of 

the  form: 

GPRINT ( NPRT , EZERO , ROWL , C0L1 . C0L2 . COL 3 . COL1 2 , 

TSYS,TR)XX1,XX2 


Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  MAGIC  special  instruction  analyzers. 
The  card  image  with  blanks  suppressed  and  starting  one  column 
to  the  right  of  the  first  (  is  broken  in  3  groups.  The  first 
group  is  checked  for  the  3  fields  defined  by  scalars. 

Field  Checked  For 

(  ,  Scalar 

,  ,  Scalar 

,  ,  Scalar 


Next  a  check  is  made  for  the  12  column  labels.  These  labels 
are  positional  and  may  be  suppressed.  After  the  labels  have 
been  determined,  the  third  group  is  checked  for  matrix  names. 
Two,  three,  or  four  matrices  may  be  specified  depending  on  use. 


Field 


Checked  for 


end  of  labels 

I 

) 


) 

9 

A-blank 


Matrix  Name 
Matrix  Name 
Matrix  Name 
Matrix  Name 


Each  fieiu  is  checked  in  turn  and  detection  of  an  error 
results  in  an  error  return.  If  the  card  image  for  the 
instruction  is  syntactically  correct,  information  req.  ired 
for  execution  is  written  on  tape.  Control  is  returned  to 
INST. 


Input  Arguments: 


NPREP 

NOPC 

ISTNO 

CARD 

NQNBLK 


output  tape  number 

opcode  of  instruction  (04) 

statement  number  of  instruction 

card  image  (starting  in  column  to  right  of 

first  (,  blanks  suppressed) 

number  of  non-blank  characters  on  card 
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5. 


Output  Arguments: 


NUMIN  -  number  of  input  matrices 

ERROR  -  error  control 

6.  Error  Returns:  Logical  variable  ERROR  is  set  to  .TRUE. 

if  an  error  is  detected  and  control  returns  to  INST.  Additional 
diagnostics  are  printed  for  illegal  values  of  parameters, 
invalid  specification  of  matrices  and  illegal  specification 
of  column  headers. 

7.  Calling  Sequence: 

Call  INSTO^J ( NPREP , NOPC , INSTNO , CARD , NONBLK , NUMIN , ERROR ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

SYMBOL ( 3 ) 

TYMBOLW 

D88^g  Bytes 

12.  Subroutine  User:  INST 

13.  Subroutine  Required:  INSTPP,  PUTL3,  PUTLil 

14.  Remarks:  This  is  a  special  instruction  analyzer. 
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Subroutine  Name:  INST43 


Purpose :  To  analyze  the  .DEJOIN,  instruction. 

A1,A2  ■  B. DEJOIN. (C(I,J) ,KODE) 

A1 ,A2  *  B.DEJOIN. (K,KODE) 

Equations  and  Procedures:  This  subroutine  uses  the  same 

procedure  as  all  the  other  analyzers  in  MAGIC.  The  card 
image  with  blanks  suppressed  and  starting  in  column  7  is 
broken  into  6  fields  as  defined  within  successive- delimiters. 


Field  Defined  By 


Checked  For 


Column  7 

» 

9s 

0 

0 

( 


( 

) 


Matrix  Name 
Matrix  Name 
Matrix  Name 
Not  Checked 
Not  Checked 

Checked  For  Matrix  Name 
and  3  Scalars  or  2  Scalars 


Each  field  is  examined  and  checked  in  turn.  Detection'  of 
an  error  results  in  an  error  return.  If  the  card  image  for 
the  instruction  is  symtacfcically  correct,  information 
required  for  execution  of  the  instruction  is  written  on  tape 
and  control  is  returned  to  INST. 


Input  Arguments: 


NPREP 

NOPC 

ISTNO 

CARD 

NONBLK 


output  tape  number 

opcode  of  instruction  (*J3) 

statement  number  of  instruction 

card  image  (starting  ir  column  7,  blanks  suppressed) 
number  of  non-blank  characters  in  card 


Output  Arguments: 


NUMOT 

NUMIN 

NUMSC 

ERROR 


number  of  output  matrices 
number  of  input  matrices 
number  of  scalars 
error  control 


Error  Returns:  Logical  variable  ERROR  it.  set  to  .TRUE, 

if  an  error  is  detected  in  this  routine  and  a  return  is  made 
to  INST.  Additional  messages  are  printed  out  for  invalid 
matrix  names  and  invalid  indices. 


Calling  Sequence: 

Call  INST*! 3 (NPREP , NOPC , ISTNO , CARD , NONBLK, NUMOT ,NUMIN , NUMSC , 
ERROR) 
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8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

MATRIX(7j*0 

SYMB0L(6) 

INDEX(3) 

Total  Storage  is  A581g  Bytes. 

12.  Subroutine  Users  INST 

13*  Subroutine  Required:  PUTL3,  PUTL4 

14.  Remarks:  This  is  an  arithmetic  type  instruction  analyzer. 
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Subroutine  Name:  INST1! 4 

Purpose:  To  analyze  the  ANALIC  instruction  which  is 

of  the  form 

DISP , STR , FOR , REC  «  TR, SC, EM, XLD,PD,KR, PR, TRANS, W,  .ANALIC. 

( KALC , NNOM , NRS  ELM ) 

Equations  and  Procedures: 

This  subroutine  uses  the  same  procedure  as  the  other  MAGIC 
analyzers.  The  card  image  with  blanks  suppressed,  starting 
in  column  7  is  broken  into  18  fields  as  defined  inside 
successive  delimiters.  Optionally,  1  to  4  output  matrices 
may  be  specified.  Any  number  of  input  matrices  may  be 
indicated.  Each  matrix  and  scalar  present  is  indicated  by 
a  value  of  1  in  the  NUMSCL  array.  Suppressed  matrices  and 
scalars  are  denoted  by  a  0  in  NUMSCL.  Each  field  is  examined 
and  checked  in  turn.  Detection  of  an  error  results  in  an 
error  return.  If  the  card  image  for  the  instruction  is 
syntactically  correct,  information  required  for  execution 
is  written  on  tapes.  Control  is  returned  to  INST. 

Input  Arguments: 

NPREP  -  Output  tape  number 

NOPC  -  OP  code  of  instruction  (44) 

ISTNO  -  Statement  number  on  instruction 

CARD  -  Card  image  (starting  in  column  7,  blanks  suppressed) 

NONBLK  -  Number  of  non-blank  charac.ers  on  card 

Output  Arguments: 

NUMOT  -  Number  of  output  matrices 

NUMIN  -  Number  of  input  matrices 

NUMSC  -  Number  of  scalars  (16) 

ERROR  -  Error  flag 

Error  Returns: 

ERROR  -  Set  to  true,  if  an  error  is  detected  inside 
INST44  routine 

Calling  Sequence: 

Call  INST4  4 ( NPREP , NOPC , INSTNO , C ARD  t  NONBLK , NUMOT , NUMIN , NUMSC , 
ERROR) 


8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  916 ^  bytes 

12.  Subroutine  User:  INST 

13*  Subroutines  Required: 

PUTL3,  PUTL4 
14.  Remarks:  None 


1.  Subroutine  Name:  INST45 

2.  Purpose: 

This  routine  analyzes  the  abstraction  instruction.  EIGEN2. 


3.  Equations  and  Procedures: 

The  field  consisting  of  nonblank  characters  of  the  of  the 
abstraction  instruction  card  is  scanned  beginning  in  card 
Column  7  and  continuing  up  until  a  comma  is  encountered.  This 
sub-field  is  tested  for  validity  as  a  matrix  name.  This  process 
is  repeated  until  four  commas  have  been  encountered  and  four 
matrix  names  read.  The  scan  begins  again  in  the  first  card  column 
following  the  last  comma  and  continues  up  until  an  equal  sign 
is  encountered.  This  sub-field  is  tested  for  validity  as  a  matrix 
name.  The  scan  begins  again  in  the  card  column  following  the 
equal  sign  and  continues  until  a  period  is  encountered.  This 
bus-field  is  tested  for  validity  as  a  matrix  name.  The 
scan  begins  again  with  the  card  column  following  the  first  period 
until  a  second  period  is  encountered.  This  *ub-field  is  ignored. 
The  scan  begins  again  following  the  period  a.id  continues  until 
a  left  parenthesis  is  encountered.  At  this  point  a  conditional 
test  is  made.  The  test  determines  whether  or  not  a  matrix  name 
exists  in  the  sub-field.  If  there  is  a  matrix  name,  a  test  is 
made  on  its  validity  as  a  matrix  name.  If  the  matrix  name  is 
valid,  the  number  of  input  matrices  is  set  equal  to  2,  If  a 
name  does  not  exist  in  the  sub-field v  the  number  of  input  matrices 
is  set  to  1.  The  scan  begins  again  in  the  card  column  following 
the  left  parenthesis  and  continues  until  a  comma  is  encountered. 
The  sub-field  is  converted  to  a  binary  integer.  This  process 
is  repeated  until  four  integers,  separated  by  commas,  have  been 
read.  The  scan  begins  in  the  card  column  following  the  last 
comma  and  continues  until  another  comma  has  been  encountered. 

This  sub-field  is  converted  to  a  floating  point  number.  The 
scan  begins  again  in  the  card  column  and  continues  until  a  right 
parenthesis  is  encountered.  The  sub-field  is  also  converted  to 
a  floating  point  number.  This  completes  the  abstraction  in¬ 
struction  analysis.  If  it  is  determined  that  this  abstraction 
instruction  is  within  the  range  of  the  REPEAT  loop,  the  instruc¬ 
tion  is  stored  in  the  working  storage  array  in  coded  form. 

However,  if  it  is  determined  that  the  analyzed  instruction  is  not 
within  the  range  of  the  REPEAT  loop,  the  instruction  is  written 
in  coded  form  on  the  preprocessor  scratch  data  set,  NPREP. 


4 .  Input  Arguments  . 

NPREP  -  the  preprocessor  utility  data  set 
NOPC  -  the  number  of  the  operation  code 

ISTNO  -  the  statement  number  of  this  abstraction  instruction 
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- - -  jr  f 


l 


CARD 

NONBLK 

NUMOT 

NUMIN 

NUMSC 

LOOP 

JWORK 

IPNT 


an  array  containing  the  last  card  image 

the  number  of  nonblk  characters  in  this  field 

the  number  of  output  matrices  in  this  instruction 

the  number  of  input  matrices  in  this  instruction 

the  number  of  scalars  in  this  instruction 

logical  flag  indicating  whether  this  instruction  is 
within  the  range  of  the  REPEAT  loop 

working  storage  array 

an  integer  pointer  indicating  the  location  of  the 
next  word  of  the  vorking  storage  array 


5*  Output  Arguments; 

ERROR  -  logical  flag  indicating  the  presence  of  an  error 

6.  Error  Returns: 

An  error  condition  occurs  when  an  error  is  returned  from  a  sub¬ 
routine,  that  is,  when  a  matrix  name  contains  an  invalid  character, 
or  too  many  characters,  or  when  a  sub-field  which  is  to  be  con¬ 
verted  to  an  integer  or  real  number  does  not  contain  all  BCD 
integers. 

7 .  Calling  Sequence: 

INST4  5  ( NPREP , NO FC , I3TN0 , CARD , NONBLK , NUMOT , NUMIN , NUMSC , ERROR , 

LOOP, IWORK, IPNT) 

8 . •  Input  Tapes:  None 
9*  Output  Tapes: 

The  statement  number,  the  operation  code,  the  number  of  input 
matrices,  the  number  of  output  matrices,  the  number  of  scalars, 
the  matrix  names  and  the  scalars  are  written  on  the  preprocessor 
scratch  data  set,  NPREP. 

10.  Scratch  Tapes:  None 

1 1 .  Subroutines  Required : 

PUTL3 

PUTL4 

INSTPP 


i 


j 

i 

j 
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1.  Subroutine  Name:  INST56 


DJOIN. 


This  routine  analyzes  the  abstraction  instruction 


3.  Equations  and  Procedures: 

This  field  of  nonblank  characters  of  the  abstraction  instruction 
card  is  scanned  beginning  in  card  column  7  and  continuing  up 
until  a  comma  is  encountered.  This  sub-field  is  tested  for 
validity  as  a  matrix  name.  The  scan  begins  again  the  in  card 
column  following  the  comma  and  continues  i.p  until  an  equal  sign 
is  encountered.  This  sub-field  is  tested  for  validity  as  a 
matrix  name.  The  scan  begins  again  in  the  card  column  following  • 
the  equal  sign  is  encountered  and  continues  up  until  a  period 
is  encountered.  This  sub-field  is  tested  for  validity  as  a 
matrix  name.  The  scan  again  begins  in  the  card  column  following 
the  period  upo  until  a  second  period  is  encountered.  This  sub¬ 
field  is  ignored.  The  scan  continues  until  a  left  parenthesis 
is  encountered.  This  sub-field  is  ignored.  The  scan  starts  again 
and  continues  up  until  a  comma  is  encountered.  This  sub-field 
is  converted  into  a  binary  integer.  The  scan  resumes  until  a 
right  parenthesis  is  encountered.  This  sub-field  is  converted 
to  a  binary  integer.  If  this  instruction  is  determined  to  be 
within  the  range  of  the  REPEAT  loop,  the  instruction  in  «,oded 
form  is  stored  in  the  working  storage  array.  However,  if  the 
analyzed  Instruction  is  determined  not  to  be  within  the  range 
of  the  REPEAT  loop,  the  instruction  in  coded  form  is  written  on 
the  preprocessor  scratch  data  set,  NPREK 


4.  Input  Arguments: 

NPREP  -  the  number  of  the  preprocessor  utility  data  set 

NOPC  -  the  number  of  the  operation  code 

ISTNO  the  statement  number  of  this  instruction 

CARD  -  an  array  containing  the  last  card  image 

NONBLK  -  the  number  of  nonblank  characters  in  the  array 

LOOP  -  logical  flag  indicating  whether  or  not  the  analyzed 
instruction  is  within  the  range  of  the  REPEAT  loop 

IWORK  -  working  storage  array 

IPNT  -  an  integer  pointer  Indicating  the  location  of  the 
next  word  in  the  working  storage  array 


5. 


NUMOT  -  the  number  of  output  matrices  in  this  instruction 
NUHIN  -  the  number  of  input  matrices  In  this  instruction 
NUMSC  -  the  number  of  scalars  in  this  instruction 
ERROR  -  a  logical  flag  indicating  the  presence  of  an  error 


6.  Error  Returns: 

An  error  condition  occur-s  when  an  error  is  returned  from  a  sub¬ 
routine,  that  is,  when  a  matrix  name  contains  an  invalid  character 
or  when  one  of  the  sub-fields  which  is  to  be  converted  to  a  binary 
integer  does  not  contain  ail  BCD  integers. 

7.  Calling  Sequence: 

INST56  ( NPREP , NO, PC , ISTNO , C ARD , NONBLK , NUMOT , NUMIN , NUMSC , LOOP , 

IWORK, IPNT) 


Input  Tapes: 


None 


9- 


Output  Tapes: 


The  statement  number,  the  operation  code,  the  number  of  output 
matrices,  the  number  of  input  matrices,  the  number  of  scalars, 
the  matrix  namea  and  the  scalars  are  written  on  the  preprocessor 
utility  data  set,  NPREP. 


None 


Subroutine  Name: 


INST60 


Purpose:  To  analyze  instructions  of  the  form 

(+)NAMOUT  =  +NAMIN1,  +NAMIN2 .OPCODE. (NPRT,EZERO) 

.FORCE,  and  .STRESS,  are  presently  of  this  form. 

Equations  and  Procedures:  The  subroutine  uses  the  same 

procedure  as  all  other  analyzers  in  MAGIC.  The  card  image 
with  blanks  suppressed,  and  starting  at  column  7  is  broken 
into  7  fields  as  defined  inside  successive  delimiters. 

Field  Checked  For 

*  Matrix  Name 

,  Matrix  Name 

.  Matrix  Name 

.  Not  Checked 

(  Not  Checked 

,  Integer 

)  Real  Number 

Each  field  is  examined  and  checked  in  turn.  Detection  of 
an  error  results  in  an  error  return.  If  the  card  Image  for 
the  instruction  is  syntactically  correct,  information  required 
for  execution  is  written  on  tape.  Control  is  retui’ned  to 
INST. 


Column  7 

s 

y 

( 


Input  Arguments: 


NPREP 

NOPC 

ISTNO 

CARD 

NONBLK 


output  tape  number 

opcode  of  Instruction  (61  or  62) 

statement  number  on  instruction 

card  image  (starting  in  column  7,  blanks  suppressed) 
number  of  non-blank  characters  in  card 


Output  Arguments: 


NUMOT 

NUMIN 

NUMSC 

ERROR 


number  of  output  matrices 
number  of  input  matrices 
number  of  scalars 
error  control 


Error  Returns:  Logical  variable  ERROR  is  set  to  .TRUE,  if 

an  error  is  detected  in  this  routine  and  control  returns  to 
INST.-  Additional  messages  printed  out  for  illegal  values  of 
scalars  NPRT  and  EZERO. 
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7*  Calling  Sequence: 


Call  INST60(NPREP , NOPC , ISTNO , CARD ,N0NBLK , NUMOT ,NUMIN , NUMSC , 
ERROR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NPREP 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

MATRIX(7»  3) 

SYMBOL ( 7 ) 

Total  Storage  is  7A^1g  Bytes. 

12.  Subroutine  User:  INST 

13-  Subroutine  Required: 

PUTL3 

PUTL4 

INSTFP 

14.  Remarks:  This  is  an  arithmetic  type  instruction  analyzer. 


1.  Subroutine  Name:  MATSUP 

2.  Purpose:  Insert  suppressed  input  matrix  names  into  the 
Format  System 

3.  Equations  and  Procedures:  Scratch  unit  NPREP  is  backspaced 
to  the  beginning  of  the  instruction  section.  If  scratch 
unit  NDATA  already  contains  matrices  then  it  is  positioned 
at  the  data  set  trailer;  otherwise  it  is  rewound  and  a  data 
set  header  written  upon  it.  Each  instruction  record  is  then 
read  to  determine  if  the  op-code  is  capable  of  containing 
input  suppressed  matrices  as  indicated  in  the  array  LEGAL. 

If  the  operation  is  capable  of  containing  suppressed  input 
matrices  then  the  input  matrix  names  are  checked  to  see  if 
they  contain  a  ’.ash  in  the  first  position.  If  this  is 

the  case  the  suppression  name  is  entered  as  a  null  matrix 
on  NDATA,  NDATA  is  then  returned  to  the  first  suppressed 
matrix  name  and  re-read  so  that  each  added  matrix  on  NDATA 
is  recorded  on  NPREP  after  the  instructions.  Control  is 
then  returned  to  the  calling  program. 

4.  Input  Arguments: 

NUMD  :  Number  of  matrices  on  NDATA 
NUMSUP  :  Number  of  suppressed  input  matrices  to  be 
added  to  NDATA 

NDATA  :  Logical  unit  containing  card  input  matrices 

NPREP  :  Logical  unit  containing  preprocessor  data 

NUMI  :  Number  of  instructions  on  NPREP 
IWORK  ;  Work  storage  area 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NUMD,  NUMSUP,  NDATA,  NPREP,  NUMI,  IWORK) 

8.  Input  Tapes: 

NDATA  :  contains  card  input  matrices,  if  present 
NPREP  :  contains  input  abstraction  instructions  in 
coded  form 

9.  Output  Tapes: 

NDATA  :  will  contain  suppressed  input  matrices 
NPREP  :  will  contain  suppressed  input  matrix  names 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  7^0^  Bytes. 

12.  Subroutine  User.  PREP 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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Subroutine  Name: 


TSUM 


2.  Purpose:  To  generate  a  summary  of  the  matrices  on  a 
format  tape  if  EUTL3  cannot  find  a  matrix  on  the  specified 
tape-. 

3.  Equations  and  Procedures:  The  data  set  header  and  modifier 
are  printed  out.  Then  each  matrix  header  is  printed  out 
giving  the  matrix  name,  the  sign  of  the  matrix  and  the  row 
and  column  dimension  of  the  matrix.  A  record  count  is  also 
provided  so  the  number  of  columns  in  a  matrix  can  be 
calculated. 

4.  Input  Arguments: 

NSET  *  The  logical  unit  number  of  the  format  tape 
to  be  summarized 

5-  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  TSUM (NSET) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required  Total  Storage  required  is  560^  Bytes. 

12.  Subroutine  User:  EUTL3 

13.  Subroutine  Required:  None 


Remarks : 


None 


Subroutine  Name: 


IDNTR 


Purpose:  To  form  an  identity  matrix  of  the  same  order  as 

the  row  dimension  of  the  input  matrix. 


Equations  and  Procedures:  The  input  matrix  is  located  by 

EUTL3  and  an  identity  matrix  is  formed.  The  order  of  the 
identity  matrix  is  the  same  as  the  row  dimension  of  the 
input  matrix. 

Input  Arguments: 


1JUM0T 

OUTPUT 

IOSPEC 

NUMIN 

INPUT 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

IERROR 

NWQRKR 

WORKR 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments :  None 


Error  Returns:  IERROR  ■  11,  if  the  input  matrix  cannot 

be  found. 


Calling  Sequence: 

IDNTR { NUMOT , OUTPUT , IOSPEC , NUMIN , INPUT , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORKR , WORKR ) 

Input  Tapes:  INSPEC 

Output  Tapes:  IOSPEC 

Scratch  Tapes:  None 

Storage  Required  Total  Storage  required  is  50E^^  Bytes. 
Subroutine  User:  EXEQ 

Subroutine  Required:  E-UTL3,  EUTL5,  EUTL6 

Remarks:  A  *  B.IDENTR. 
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Subroutine  Name: 


IDNTC 


Purpose:  To  form  an  identity  matrix  of  the  same  order 

as  the  column  dimension  of  the  input  matrix. 

Equations  and  Procedures:  The  input  matrix  is  located 

by  EUTL3  and  an  identity  matrix  is  generated.  The  order 
of  the  identity  matrix  is  the  same  as  the  column  dimension 
of  the  input  matrix. 

Input  Arguments: 


NUMOT 

OUTPUT 

IOSPEC 

NUM1N 

INPUT 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

I ERROR 

NWORKR 

WORKR 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  None 


Error  Return:  IERROR  *  11,  if  the  input  matrix  cannot  be 

found . 


Calling  Sequence: 

IDNTC ( NUMOT , OUTPUT , IOSPEC , NUMIN , INPUT , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORKR , WORKR ) 

Input  Tapes:  INSPEC 

Output  Tapes:  IOSPEC 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  SOE^g  Bytes. 
Subroutine  User:  EXEQ 

Subroutine  Required:  EUTL3,  EUTL5,  EUTL6 
Remarks:  A  «  B.IDENTC. 
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1.  Subroutine  Name:  EIQ1 

2.  Purpose:  To  create  dynamic  storage  for  eigenvalue 

and  eigenvector  calculations  and  locate  input  matrix. 

3.  Equations  and  Procedures: 

1)  Dynamic  storage  is  allocated. 

2)  REQE2  is  called  to  transfer  matrix  to  scratch  tape. 

3)  EIQB  is  called  to  iteration  on  a  matrix. 

4)  Storage  required  is  5  vectors  of  equal  length 

(order  of  matrix). 

5)  If  the  NWORX  storage  is  too  small  for  this,  an 

error  message  is  printed  out. 

6)  If  the  eigenmatrix  cannot  be  located,  another  error 

message  is  written. 

4.  Input  Arguments: 

NMOUT  -  the  number  of  output  matrices 

NAMOT  -  array  containing  the  names  of  the  output 

matrices 

IODS  -  array  containing  output  data  set  numbers 

NMIN  -  the  number  of  input  matrices 

INPT  -  array  containing  the  names  of  the  input 

matrices 

INSP  -  array  containing  input  data  set  numbers 

NSCR  -  the  number  of  scratch  data  sets 

ISSP  -  array  containing  scratch  data  set  numbers 

NMSCL  -  the  number  of  input  scalars 

NAMSC  -  array  containing  the  input  scalars 

ERR  -  -  error  return  code 

NWKR  -  the  number  of  words  of  available  work  storage 
WKR  -  working  storage  array 

5.  Output  Arguments:  ERR 

6.  Error  Returns: 

ERR  *  true  if  input  matrix  can't  be  found 

*  true  if  not  enough  storage  to  calculate  eigenvalue 
and  vector. 

7.  Calling  Sequence: 

Call  EIQ1 ( NMOUT , NAMOT , IODS , NMIN , INPT , INS? , NSCR , ISSP , 

NMSCL , NAMSC , ERR , NWKR , WKR ) 

8.  Input  Tapes:  INSP 

9*  Output  Tapes:  IODS,  NPOT 
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10.  Scratch  Tapes:  ISSP  (4  scratch  tapes  needed) 

11.  Storage  Required: 

Total  Storage  Required  is  130^  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutines  Required: 

REQE2 

EIQB 

EUTL3 

14 .  Remarks : 
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1.  Subroutine  Name:  REGE2 

2.  Purpose:  This  routine  takes  compressed  (Format)  Eigen- 
matrix  and  transfers  it  (exponded)  to  a  scratch  data  set. 
Storage  on  the  scratch  data  set  is  optimized  by  placing 
as  many  columns  into  a  record  (which  has  NLEFT  words 
max)  as  possible. 

3.  Equations  and  Procedures: 

1)  Compute  number  of  columns/NLEFT  record  *  NCR: 

maximum  NCOL  records. 

2)  Compute  number  of  columns  in  last  record  »  NRR 

3)  Compute  total  number  of  records  ■  NR 

a)  Number  of  full  records  NFR 

b)  Number  of  columns  in  last  record  NRR 

4)  Read  compressed  matrix  from  113  expand  column 

using  EUTL9.  Provide  for  suppressed  column. 

5)  Take  care  of  full  records  first. 

6)  Next  write  final  clean-up  record  containing 

remaining  matrix  columns. 

4.  Input  Arguments: 

112  -  data  set  to  which  eigen-matrix  is  transferred 

113  -  data  set  with  compressed  (Format)  eigen-matrix 

ARRAY  -  work  storage 

DARRAY  -  work  storage 

NCOL  -  order  of  matrix 

NR  -  total  number  of  records  on  scratch  data  set 

NLEFT  -  maximum  record  length 

5*  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  REGE2 ( I 12 , I 1 3 , ARRAY , DARRAY , NCOL , NR , NLEFT ) 

8.  Input  Tapes:  113  contains  original  format  compressed 
eigenmatrix. 

9.  Output  Tapes:  112  contains  expanded  eigenmatrix  each 
record  is  up  to  "NLEFT"  words  and  contains  an  integer 
number  of  matrix  columns/record. 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  Bytes. 
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12.  Subroutine  User: 
EIG1 

13*  Subroutine  Required 
EUTL9 

14 .  Remarks : 


1.  Subroutine  Name:  EIGB 

2.  Purpose:  Control  iteration  routine  EIG.  .  Writes 

eigenvalue,  eigenvector  matrices  on  tape. 

3*  Equations  and  Procedures: 

1)  Write  out  controls  used  in  iteration: 

NE  -  number  of  eigenvalues  requested  Defaults  are 

IFLAG  -  row  or  column  iteration  NOIT  *  500 

NOIT  -  number  of  iterations  per  CRIT  »  .001 

criteria  update 
CRIT  -  convergence  criteria 

2)  Locate  and  expand  input  vecotrs  using  EUTL3 

3)  Call  routine  EIG 

4)  Print  out  frequency  in  CPS  and  radians/sec  and 

the  normalized  eigenvector 

5)  If  output  vecotrs  are  requested  write  them  on  an 

output  tape  when  vectors  are  written. 

4.  Input  Arguments:  See  calling  sequence. 

5.  Output  Arguments:  None 

6.  Error  Returns: 

7.  Calling  Sequence: 

Call  EIGB(NE,IBEG,IEND,WKR(N1)  ,WKR(N5)  ,WKR(N3)  ,WKR(N4)  , 

WKR { N2 ) , NMDB , NEIGL , NEIG V , NAMOT , NMOUT  9 WKR ( N  3 ) , 
WKR(N4)  ,NSAVE ,  INVEC , INPT , NHIN , ERR ,  IFLAG , NOIT , 

NR IT , NVECT , NR , NLEFT ) 

8.  Input  Tapes: 

9.  Output  Tapes:  NSAVE,  NVECT,  NPOT,  NEIGL,  0 

10.  Scratch  Tapes:  NSKRAT 

11.  Storage  Required: 

Total  Storage  required  is  1852^  Bytes. 

12.  Subroutine  User:  EIG1 

13.  Subroutines  Required:  EUTL3,  EIG,  EUTL5,  EUTI.6 

14.  Remarks: 
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Subroutine  Name:  EIQ 

Purpose:  This  routine  computes  only  one  eigenvalue  and 

vector  for  each  call  from  EIGB. 


Equations  and  Procedures: 

1)  Power  method  iteration  with  hotteling  deflation  to 

remove  dominant  root. 

2)  Iterate  on  column  vector,  get  vector  and  valuer 

3)  If  another  value  is  desired,  iterate  on  row  vector 

and  value. 

ij)  Use  row  and  column  vectors  to  deflate  matrix. 

5)  Use  deflate  matrix  when  iterating  for  next  column 

vector 

6)  If  the  convergence  must  be  updated  (CRITZ  «  CRITZ+CRIT) 

7)  Return  to  routine  EIGB. 


Input  Arguments: 


N 

IPRINT 

NEIG 

CRIT 

NOIT 

IBEG 

IBEND 


order  of  characteristic  matrix 
«  0  no  iteration  print.;  »  1. print  iterations 
*  always  ■  1 
convergence  criteria 
number  of  iterations 
location  (unit)  of  col  (characteristic) 
vector  matrix 

unit  on  which  deflated  matrix  is  placed 


Output  Arguments: 


ROOTS 

XIN 

NERR 

ICOUNT 

IFLAG 


returned  eigenvalue 
returned  eigenvector 
error  indicator  *  0  no  error ;»1 
*  1  if  value  converged  »2 

«  both  input  and  output  »3 

■  0  go  directly  to  col 
iteration 

«  1  continue  row  Iteration 
indicates  row  iteration 
failed  previously  and 
criteria  has  been  increased 


col  do  not  converge 
row  does  not  converge 
row  root  i  col  root 
machine  or  input  error 


Error  Returns: 

NERR  -  1  no  error;  *  2  eigencols  do  not  converge; 

«3  eigenrows  do  not  converge;  *  ^  row  root  not  equal  to 
col.  root;  ■  5  no  nonzero  element  in  (col);  »  6  no  non¬ 
zero  element  in  row;  *  7  scalar  product  of  row  and  column 
vectors  ■  zero. 
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7.  Calling  Sequence: 


Call  EIG ( N , IPRINT , NEIG , ROOTS , XIN , NERR , CRIT , NOIT , ICOUNT , 
IBEG , IEND , A , XI , SIMIN , XINP , NMDB , XIP , XIMINP , NE , 
IPLAG,NUMR,NLEPT,NOFP,NTR 

8.  Input  Tapes: 

9.  Output  Tapes: 

10.  Scratch  Tapes: 

IBEG  -  initial  (A)  matrix  location  . 

IEND  -  location  of  swept  (A)  matrix  after  18T;  eigenvalue 
is  found.  This  unit  then  becomes  the  input  for 
calculating  the  next  eigenvalue  and  IBEG  will 
receive  the  resulting  swept  matrix. 

11.  Storage  Required: 

Total  Storage  required  is  lB06^g  Bytes. 

12.  Subroutine  User-:  EIGB 

13*  Subroutines  Required:  None 

14.  Remarks: 


COLREP 


1.  Subroutine  Name: 


2.  Purpose:  To  generate  a  matrix  by  repeating  the  first 

input  column  matrix  X  number  of  times  where  K  is  the  column 
dimension  of  the  second  input  matrix. 


3.  Equations  and  Procedures:  The  second  input  matrix  is 

located  and  its  column  dimension,  NCOL,  is  noted.  The 
first  input  matrix  is  located  and  stored  in  core  and  its 
row  dimension,  IROW,  is  noted.  A  matrix  header  for  the 
output  mat;  Lx  of  order  IROW  by  NCOL  is  written.  The  input 
column  is  repeated  NCOL  times  and  the  matrix  trailer  for 
the  output  matrix  is  written. 

H.  ‘  Input  Arguments: 


5. 


6. 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

IERROR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  IERROR  -  error  flag. 


Error  Returns: 


IERROR  «  11,  if  first  input  matrix  can't  be  found 

*  12,  if  second  input  matrix  can't  be  found 

*  21,  if  output  matrix  can't  be  generated 

7.  Calling  Sequence: 

COLREP ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORK , WORK ) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  64iJ^g  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required:  EUTL3,  EUTL5,  EUTL6 

1  *1 .  Remarks:  A  =  B.  COLREP.  C 
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1. 


Subroutine  Name: 


NULL 


2.  Purpose:  To  generate  a  null  matrix  of  order  n  x  m. 

3*  Equations  and  Procedures:  The  first  input  matrix  is 

located  and  the  row  dimension  of  this  matrix  is  3aved  in 
KROW.  The  second  input  matrix  is  located  and  the  column 
dimension  of  this  matrix  is  saved  in  KCOL.  Then  a  matrix 
header  and  trailer  is  written.  The  dimension  of  the  out¬ 
put  matrix  is  KROW  x  KCOL. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUM5C  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

I ERROR  -  error  return  code 

NWORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR  -  error  flag 

6.  Error  Returns: 

IERROR  ■  11,  if  first  input  matrix  can’t  be  found 
“  12,  if  second  input  matrix  can’t  be  found 

7*  Calling  Sequence: 

NULL ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 

NUMSC , SCALAR , IERROR , NWORK , WORK ) 

6.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  iJBA-^g  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required:  EUTL3,  EUTL5,  EUTL6 

1*J.  Remarks:  A  -  B.NULL.C 
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DEJOIN 


1.  Subroutine  Name: 


2. 


3. 


H. 


5. 


6. 


7. 


8. 


Purpose:  This  routine  is  the  controlling  routir*  to 

provide  matrix  column  or  row  partitioning. 

Equations  and  Procedures:  First,  the  input  and  output 

date  sets  are  defined.  Next  a  check  is  made  to  determine 
if  the  input  data  set  is  the  same  as  either  output  data 
set.  If  either  or  both  of  the  output  data  sets  are  the 
same,  the  output  data  set  is  redefined  as  a  unique  scratch 
data  set.  Now  a  test  is  made  to  determine  if  the  partition 
number  was  input  or  if  it  must  be  found.  If  it  was  not 
input  then  EUTL7  extracts  the  partitioning  scalar.  Now  a 
test  of  whether  a  column  or  a  row  DEJOIN  is  desired  is 
performed.  If  it  is  a  column  DEJOIN,  subroutine  DEJNC 
is  called.  If  it  is  a  row  DEJOIN,  subroutine  DEJNR  is 
called.  If  either  or  both  output  data  sets  are  different 
from  the  originally  allocated  output  data  sets,  a  copy  of 
the  output  data  set  is  made  onto  the  originally  allocated 
data  set  by  a  call  to  EUTL4. 

Input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

ISCALE 

IERROR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments:  IERROR  -  error  flag 


Error  Returns:  An  error  condition  occurs  when  a  matrix 

cannot  be  located,  the  subscripts  used  to  extract  the 
partition  number  exceed  the  dimension  limit,  or  when  the 
partition  number  is  invalid. 

Calling  Sequence: 

DEJOIN ( NUMOT , NAMIO , IOSPEC , NUMIN, NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , ISCALE , IERROR , NWORK , WORK ) 

Input  Tapes:-  One  or  two  input  data  sets  in  the  INSPEC 
array . 
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9.  Output  Tapes:  Two  output  data  sets  in  the  IOSPEC  array. 

10.  Scratch  Tapes:  Two  scratch  data  sets  in  the  ISSPEC  array. 

11.  Storage  Required:  Total  Storage  required  is  918-^g  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required: 

EUTL1 

EUTL3 

EUTL7 

DEJNP 

DEJi 

EUTL^ 

1H.  Remarks:  A,B  «  C.DEJ01H. (d,e) 


Subroutine  Name: 


DEJNR 


Purpose:  This  routine  row  partitions  a  matrix  at  a 

specified  row. 


Equations  and  Procedures:  First  the  partition  number 

is  tested  against  the  row  dimension  of  the  matrix  to  be 
partitioned  if  it  is  greater  than  the  number  of  rows  an 
error  occurs.  If  it  is  less  than  or  equal  to  the  row 
dimension  then  the  input  matrix  A  is  partioned  to  form 
two  output  matrices  Cl  on  C2. 

A(MXN)  -  C1(J-1  x  n),  C2(m-J+1  x  n)  where  1  <  J  <  m 


Input  Arguments: 


NAME 

NSET 

NSET1 

NSET2 

JPART 

IROW 

ICOL 

NWORK 

WORK 

ERROR 


the  names  of  the  output  matrices 

the  data  set  number  of  the  input  matrix  to  be 

partitioned 

the  data  set  number  of  the  first  output  matrix 
the  data  set  number  of  the  second  output  matrix 
the  row  number  at  which  the  input  matrix  is'  to 
be  partitioned 

the  row  dimension  of  the  input  matrix 

the  column  dimension  of  the  input  matrix 

the  number  of  words  of  available  working  storage 

working  storage  array 

error  flag. 


Output  Arguments:  ERROR 

Error  Returns:  An  error  condition  occurs  when  JPART 

is  greater  than  the  row  dimension  of  the  input  matrix. 

Calling  Sequence: 

DEJNR ( NAME , NSET , NSET1 , NSET2 , JPART , IROW , ICOL , NWORK , WORK , 
ERROR) 

Input  Tapes :  NSET 

Output  Tapes:  NSET1,  NSET2 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  5F61g  Bytes. 
Subroutine  User:  DEJOIN 

Subroutine  Required:  EUTL5,  EUTL9,  EUTL8,  EUTL6 


Remarks:  .  Non* 
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Subroutine  Name: 


DEJNC 


2.  Purpose:  This  routine  column  partitions  a  matrix  at  a 

specified  column. 


Equations  and  Procedures:  First  the  partition  number  in 

tested  against  the  column  dimension  of  the-  matrix  to  be 
partitioned.  If  it  is  greater  than  the  number  of  columns 
an  error  occurs.  If  it  is  less  than  or  equal  to  the  column 
dimension  the  input  matrix  A  is  partitioned  to  form  two 
output  matrices  Cl  and  C2. 

A(MXN)  -  C1(M  x  J-l),  C2(m  x  n-J+1)  where  3.  <  J  <  n 
Input  Arguments: 


NAME 

NSiST 


NSET1 

NSET2 

JFART 

IRQW 

ICOL 

NWORK 

WORK 

ERROR 


the  names  of  the  output  matrices 

the  data  set  number  of  the  input  matrix  to 

be  partitioned 

the  data  set  number  of  the  first  output  matrix 
the  data  set  number  of  the  second  output  matrix 
the  column  number  at  which  the  input  matrix  is 
to  be  partitioned 

the  row  dimension  of  the  input  matrix 

the  column  dimension  of  the  input  matrix 

the  number  of  words  of  available  working  storage 

working  storage  array 

error  flag 


5.  Output  Arguments:  ERROR 

6.  Error  Returns:  An  error  condition  occurs  when  JPART  is 

greater  than  the  column  dimension  of  the  input  matrix. 

7.  Calling  Sequence: 

DEJNC ( NAME , NSET , NSET1 , NSET2 , J  PART , IROW , ICOL , NWORK , WORK , 
ERROR) 

8.  Input  Tapes:  NSET 

9.  Output  Tapos:  NRET1,  NSET2 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  638^  Bytes. 

12.  Subroutine  User:  DEJOIN 


13.  Subroutine  Required:  EUTL5,  EUTL6 

Ilf .  Remarks:  None 
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Subroutine  Name: 


ASSEM 


Purpose:  To  assemble  the  element  matrices  generated 

by  the  USER04  module. 


Equations  and  Procedures:  The  matrix  containing  the  system 

constants  is  found  to  generate  the  value  NSYS.  The  assembled 
matrices  will  be  of  order  NSYS,  that  is,  they  will  not  be 
reduced.  Next,  the  variable  ITYPE  is  tested  to  see  what 
type  of  matrices  are  to  be  assembled.  Depending  on  the 
value  of  ITYPE  control  is  transferred  to  either  ASSEMC  or 
ASSEMS  to  assemble  and  write  the  matrices 

ITYPE  ■  1,  for  element  stiffness  assembly 
■  2,  for  element  mass  assembly 
«  3,  for  element  incremental  assembly 
*  4,  for  element  applied  load  assembly. 

Input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

ISCALE 

IERROR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  3calars 

error  return  code 

the  number  of  words  of  available  work  storage 
working  storage  array 


Output  Arguments :  None 


Error  Returns: 


IERROR  ■  21,  if  the  matrix  containing  the  system  constants 
can't  be  found 

■  15,  if  there  Is  not  enough  work  storage  for  the 
assembled  matrix 


Calling  Sequence: 

ASSEM ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INS  PEC , NUMSR , ISSPEC , 
NUMSC , ISCALE , IERROR , NWORK , WORK ) 

Input  Tapes:  The  data  set  numbers  are  contained  in  the 

INSPEC  array. 
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9.  Output  Tapes:  The  data  set  numbers  are  contained  in 

the  IOSPEC  array. 

10.  Scratch  .“.apes:  The  data  set  numbers  are  contained  In 

the  ISSPEC  array.  This  module  uses  at  most  two  scratch 
tapes. 

11.  Storage  Required:  Total  Storage  required  is  72Cl6  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required: 

EUTL3 

ASSEMC 

ASSEMS 

14.  Remarks:  A  ■  3.ASSEM.C, (d) 


Subroutine  Name: 


ASSEMC 


Purpose:  To  assemble  the  element  applied  load  columns. 


Equations  and  Procedures:  The  tape  containing  the  element 

matrices  is  read  and  the  LISTEL  and  FTEL  arrays  are  stored  for 
each  element.  Using  the  LISTEL  array  the  FTEL  arrays  is 
assembled  into  a  master  applied  load  array.  This  process 
is  repeated  for  each  element. 

Input  Arguments: 


NSET1 

NSET2 

NAME1 

NAME2 

NSYS 

LISTEL 

FTEL 

FCOL 

NWORK 

WORK 

IERROR 


data  set  on  which  the  input  element  matrices 
are  stored 

data  set  number  of  output  matrix 

array  containing  name  of  matrix  on  NSET1 

array  containing  name  of  matrix  on  NSETL 

order  of  assembled  matrix 

storage  for  the  LISTEL  array 

storage  for  the  element  applied  loads  array 

storage  for  the  assembled  FTEL 

number  of  words  of  work  storage 

work  storage 

error  return 


Output  Arguments:  None 

Error  Returns: 

IERROR  «  11,  if  the  input  matrix  can’t  be  found 

■  15,  if  a  value  of  LISTEL  is  greater  than  NSYS 

Calling  Sequence: 

ASSEMC ( NSET1 , NAME1 , NSET2 , NAME2 , NSYS , LISTEL , FTEL , FCOL . 
NWORK, WORK, IERROR) 

Input  Tapes :  NSET1 

Output  Tapes :  NSET2 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  678^  Bytes. 

Subroutine  User:  ASSEM 

Subroutine  Required:  EUTL3,  EUTL5 ,  EUTL6 

Remarks :  None 


Subroutine  Name: 


ASSEMS 


Purpose:  To  assemble  the  element  stiffness,  element  mass 

or  element  incremental  matrices  as  generated  by  the  USER04 
module. 

Equations  and  Procedures:  The  matrix  containing  the  input 

element  matrices  is  found  and  depending  on  what  type  of 
matrices  are  to  be  assembled  a  different  read  statement  is 
initiated.  The  LISTEL  array  and  element  matrix  is  then 
stored  in  core.  Then  using  LIST  processing  techniques  the 
element  matrix  is  assembled  in  core.  Only  non-zero  values 
are  considered.  If  all  non-zero  values  can't  fit  in  core 
then  the  values  in  core  are  written  on  tape  until  more 
elements  are  assembled  in  core.  These  non-zero  values  are 
then  merged  with  the  ones  on  tape  to  produce  the  output 
assembled  matrix. 


Input  Arguments: 


NSET1 

NAMIN 

NSET2 

NAMOUT 

NS1 

NS2 

NSYS 

NCORE 

ITYPE 

ICOLPT 

VALUE 

IERROR 


data  set  number  of  tape  containing  element  matrices 

array  containing  name  of  matrix  on  NSET1 

data  set  num-er  of  output  matrix 

array  containing  name  of  output  matrix 

scratch  tape  1 

scratch  tape  2 

order  of  assembled  matrix 

number  of  available  words  of  core  storage 

indicates  type  of  matrices  to  be  assembled 

storage  needed  for  assembly 

storage  needed  for  assembly 

error  flag 


Output  Arguments :  None 


Error  Returns: 


IERROR  *  11,  if  the  input  matrix  on  NSET1  cannot  be  found 
Calling  Sequence: 


ASSEMS ( NSET1, NAMIN , NSET2 , NAMOUT ,NS1 , NS2 , NS YS , NCORE , ITYPE , 
ICOLPT, VALUE, IERROR) 


Input  Tapes: 
Output  Tapes: 
Scratch  Tapes: 


NSET1 
NSET2 
NS1,  NS2 
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11.  Storage  Required.  Total  Storage  required  is  292^g  Bytes. 

12.  Subroutine  User:  ASSEM 

13.  Subroutine  Required: 

EUTL3 

EUTL5 

EUTL6 

14.  Remarks:  For  a  more  detailed  documentation  see  the 

source  listing  os  subroutine  ASSEMS. 


1.  Subroutine  Name:  STRESS 

2.  Purpose:  This  is  the  control  routine  for  computing  the 

net  element  stress  matrix.  It  also  controls  the  optional 
engineering  print  of  apparent  element  stresses,  element 
applied  stresses  and  net  element  stresses. 

3.  Equations  and  Procedures:  This  module  first  tests  the 
allocation  of  the  input  and  output  matrices.  If  both  input 
matrices  are  on  the  same  data  set,  but  not  on  the  data  set 

t-'  contain  the  output  matrix,  then  one  of  these  input  matrices 
is  copied  onto  a  scratch  data  set.  If  both  input  matrices 
are  on  the  same  data  set  as  the  output  mat-'*,  then  each 
input  matrix  is  located  and  copied  onto  a  scratch  data  set. 

When  this  has  been  completed  both  input  matrices  are 
positioned  and  the  matrix  header  for  the  output  matrix  is 
written. 

Pointers  ax’e  next  set  up  indicating  positions  in  the  work 
area  for  arrays  needed  to  compute  the  stresses. 

Subroutine  STRES1  is  called  to  read  element  data  and 
displacements  contained  in  the  input  matrices. 

4.  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices 

NAMIO  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sett 

ISSPEC  -  array  containing  scratch  data  s^t  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

IERRCR  -  error  return  code 

NWORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5*  Output  Arguments:  IERROR 

6.  Error  Returns: 

IERROR  ■  11  or  21,  if  either  the  first  or  second  input  matrix 

can't  be  found  by  EUTL3 

7.  Calling  Sequence: 

STRESS ( NUMOT , NAMIO , IOS  PEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , NUMSC , 
SCALAR , IERROR , NWORK , WORK ) 


8. 

Input  Tapes; 

INSPEC 

9. 

Output  Tapes: 

IOSPEC 
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Scratch  Tapes:  ISSP2C 

Storage  Required  Total  Storage  required  is  704 

Subroutine  User:  EXEQ 

Subroutine  Required: 

EUTL1 

EUTL3 

EUTL4 

EUTL5 

STRES1 


Remarks : 


C  «  A, B. STRESS. (d,e) 


Subroutine  Name: 


STRES1 


Purpose:  This  routine  reads  element  data  and  displacements, 

calls  STRES2  to  calculate  the  stresses,  then  writes  the  net 
element  stresses  for  each  element* 

Equations  and  Procedures:  A  test  is  first  made  to  see  if 

enough  work  space  is  available  to  process  all  elements 
successfully.  Then  for  each  element  this  module: 

(a)  Reads  a  column  of  the  input  matrix  containing  element 
data  on  NSET1. 

(b)  Compresses  this  column,  keeping  only  the  element  data 
necessary  to  calculate  the  stress. 

(c)  Calls  STRES2  to  calculate  the  stresses  and  print 
them  out. 

(d)  Writes  the  calculated  net  element  stresses  on  tne 
output  data  set.  One  column  is  written  for  each 
element,  such  that  each  column  contains  net  stresses 
for  each  load  condition. 

Input  Arguments: 

N.5LEM  -  the  number  .  *  elements 

NLOAD  -  the  number  of  load  conditions 

NMDB  -  the  order  of  the  displacement  array 

MAXEL  -  the  length  of  work  storage  needed  to  process 

the  maximum  size  element 
NIA8  -  NLOAD*  4  8 

NSET1  -  the  data  set  number  of  the  input  matrix  con¬ 

taining  element  data 

NS5T2  -  the  data  set  number  of  the  input  matrix  con¬ 

taining  the  displacements 

NSET3  -  the  data  set  number  of  the  output  matrix 

NAME  -  the  name  of  tho  matrix  on  NSET2 

SCALAR  -  an  array  containing  the  input  scalars 

MAT  -  a  work  array  local  to  STRES1 

IPM  -  a  work  array  local  to  STRES1 

STRESN  -  work  storage  for  the  net  element  stresses 

NWORK  -  the  number  of  words  of  available  working  storage 

WORK  -  working  storage  array 

IERROR  -  error  return 

Output  Arguments:  lERHOS  -  error  return 

Error  Returns: 

IERROR  «  15,  ir  not  enough  work  storage  to  process  all 
elements. 


7. 


Calling  Sequence: 


STRES1 (NELEM, NLOAD , NMDB , MAXEL ,NL4  8 ,NSET1 , NSET2 ,NSET3 , 
•NAME ,  SCALAR ,  MAT ,  I  PM ,  STRESN ,  N  WOR  K ,  WORK ,  IERROR ) 

8.  Input  Tapes:  NSET1,  NSET2 

9.  Output  Tapes:  NSET3 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  15^^  Bytes. 

12.  Subroutine  User:  STRESS 

13.  Subroutine  Required: 

ELREAD 

FREEUP 

STRES2 

l1! .  Remarks :  None 


1. 


2. 


3. 


4. 


Subroutine  Name :  STRES2 

Purpose:  This  routine  calculates  the  net  element  stresses 

for  each  load  condition.  Then  calls  STRPRT  to  print  the 
apparent ,  applied  end  net  element  stresses. 

Equations  and  Procedures:  A  test  is  first  made  to  see 

if  the  displacements  for  all  load  conditions  can  fit  in 
core.  If  they  can,  then  they  are  read  into  core.  If  the 
displacements  for  all  .Load  conditions  do  not  fit  into  core 
then  the  displacements  for  each  load  condition  are  read 
into  core  one  at  a  time.  For  each  load  condition  the  net 
element  stresses  are  cs.lculated  and  depending  on  the  option 
specified  the  apparent,  applied  or  net  stresses  are  printed 
for  each  element. 


Input  Arguments: 


I  EL 

I  PL 

NMDB 

NLOAD 

NRSEL 

NORD 

NNO 

NSET2 

INCORE 

FIRST 

NAME 

SCALAR 

LISTEL 

SEL 

SZALEL 

NODES 

STRESN 

NWORK 

DISPL 

IERROR 


the  element  number 

the  element  type  (new  plug  number) 

the  order  of  the  displacement  array 

the  number  of  load  conditions 

the  order  of  the  element  stress  array 

the  order  of  the  LISTEL  array 

the  order  of  the  NODES  array 

the  data  set  number  of  the  displacement  matrix 

a  logical  variable  indicating  in  all  displacement 

are  INCORE 

a  logical  variable 

the  name  of  the  matrix  on  NSET2 

an  array  containing  the  input  scalars 

a  decoding  array  to  go  from  reduced  degrees 

of  freedom  to  system  degrees  of  freedom 

the  element  stress  matrix 

applied  element  stress  matrix 

an  array  containing  the  element  node  points 

net  element  stress  matrix 

the  number  of  words  of  available  working  storage 
the  displacement  array 
error  return 


5.  Output  Arguments:  STRESN,  IERROR 

6.  Error  Returns: 

IERROR  «  21,  if  EUTL3  can't  find  the  displacement  matrix 
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Calling  Sequence: 

STRES2 ( IEL, IPL , NKDB , NLOAD , NRSEL , NORD , NNO , NSET2 , INCORE , FIRST , 
NAME , SCALAR , NSC ,LISTEL , NODES , SEL , SZ ALEL , STRESN , NWORK , 
DISPL, IERROR) 

Input  Tapes :  NSET2 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  117A^g  Bytes. 

Subroutine  User:  STRES1 

Subroutine  Required: 

COLMRD 

EUTL3 

STRPRT 

Remarks:  None 
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1. 


Subroutine  Name: 


FORCE 


2.  Purpose:  This  is  the  control  routine  for  computing  the 

net  element  force  matrix.  It  also  controls  the  optional 
engineering  print  of  apparent  element  forces,  element 
applied  forces  and  net  element  forces, 

3.  Equations  and  Procedures:  This  module  first  test  the 

allocation  of  the  input  and  output  matrices.  If  both  input 
matrices  are  on  the  same  data  set,  but  not  on  the  data  set 

to  contain  the  output  matrix,  then  one  of  these  input  matrices 
is  copied  onto  a  scratch  data  set.  If  both  input  matrices 
are  on  the  same  data  set  as  the  output  matrix,  then  each 
input  matrix  is  located  and  copied  onto  a  scratch  data  set. 
When  this  has  been  completed  both  input  matrices  are 
positioned  and  the  matrix  header  for  the  output  matrix  is 
written. 

Pointers  are  next  set  up  to  indicating  positions  in  the 
work  area  for  arrays  needed  to  compute  the  forces. 

Subroutine  F0RCE1  is  called  to  read  element  data  and 
displacements  contained  in  the  input  matrices 

4.  Input  Arguments: 

Nu'MOT  -  the  number  of  output  matrices 

NAMOT  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  Input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

IERROR  -  error  return  code 

NWORK  -  the  number  of  words  of  availcble  work  storage 
V/ORK  -  working  storage  array 

Output  Arguments:  IERROR 

Error  Returns: 

IERROR  =  11  or  21,  If  either  the  first  or  second  input 

matrix  can't  be  found  by  EUTLj 

Ca31ing  Sequence: 

FORCE ( NUMOT , NAMOT , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 

NUMSC , SCALAR , IERROR , NWORK, WORK ) 
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8.  Input  Tapes:  INSPEC 

9*  Output  Tapes:  IOSPEC 

10.  Scratch  Tapes:  ISSPEC 

11.  Storage  Required:  Total  Storage  required  is  704^  Bytes. 

12.  Subroutine  User:  EXEQ 

13.  Subroutine  Required: 

EUTL1 

EUTL3 

EUTL4 

EUTL5 

FORCE1 

m.  Remarks:  C  ■  A, B. FORCE.  (d,e) 
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Subroutine  Name:  F0RCE1 

Purpose:  This  routine  reads  element  data  and  displacements, 

calls  F0RCE2  to  calculate  the  stresses,  then  writes  the 
net  element  forces  for  each  element. 


Equations  and  Procedures:  A  test  is  first  made  to  see 

if  enough  work  space  is  available  to  process  all  elements 
successfully.  Then  for  each  element  this  module: 

(a)  Reads  a  column  of  the  input  matrix  containing  element 
data  on  NSET1. 

(b)  Compresses  this  column,  keeping  only  the  element  data 
necessary  to  calculate  the  forces. 

(c)  Calls  P0RCE2  to  calculate  the  forces  and  print  them 
out . 

(d)  Writes  the  calculated  net  element  forces  on  the 
output  data  set.  One  column  is  written  for  each 
element,  such  that  each  column  contains  net  stresses 
for  each  load  condition. 


.nput  Arguments: 


NELEM 

NLOAD 

NMDB 

MAXEL 

NL48 

NSET1 

NSET2 

NSET3 
NAME 
SCALAR 
MAT 
I  PM 

FORCEN 

NWORK 

WORK 

IERROR 


the  number  of  elements 

the  number  of  load  conditions 

the  order  of  the  displacement  array 

the  length  of  work  storage  needed  to  process 

the  maximum  size  element 

NLOAD* 48 

the  data  set  number  of  the  input  matrix 

containing  element  data 

the  data  set  number  of  the  input  matrix 

containing  the  displacements 

the  data  set  number  of  the  output  matrix 

the  name  of  the  matrix  on  NSET2 

an  array  containing  the  input  scalars 

a  work  array  local  to  F0RCE1 

a  work  array  local  to  F0RCE1 

work  storage  for  the  net  element  forces 

the  number  of  words  of  available  working  storage 

working  storage  array 

error  return 


Output  Arguments:  IERROR  -  error  return 

Error  Returns: 

IERROR  »  15,  if  not  enough  work  storage  to  process  all 
elements 

Calling  Sequence: 

F0RCE1 ( NELEM , NLOAD , NMDB , MAXEL , NL  4  8 , NSET1 , NSET2 , NSET3 , NAME , 
SCALAR , MAT , I PM , FORCEN , NWORK , WORK , IERROR ) 
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8. 

9- 

10. 

11. 

12. 

13. 

1H. 


Input  Tapes:  NSET1,  NSET2 

Output  Tapes:  NSET3 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  756-^  Bytes. 

Subroutine  User:  FORCE 

Subroutine  Required: 

ELREAD 

FREEUP 

FORCE2 

Remarks :  None 
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/ 


Subroutine  Name: 


P0RCE2 


Purpose:  This  routine  calculates  the  net  element  forces 

for  each  load  condition.  Then  calls  STRPRT  to  print  the 
apparent,  applied  and  net  element  forces. 


Equations  and  Procedures:  A  test  is  first  made  to  see 

if  the  displacements  for  all  load  conditions  can  fit  in 
core.  If  they  can,  then  they  are  read  into  core.  If  the 
displacements  for  all  load  conditions  do  not  fit  into  core 
then  the  displacements  for  each  load  condition  are  read 
into  core  one  at  a  time.  For  each  load  condition  the  net 
element  forces  are  calculated  and  depending  on  the  option 
specified  the  apparent,  applied  or  net  forces  are  printed 
£ or  each  element. 


Input  Arguments: 


IEL 

I  PL 

NMDB 

NLOAD 

NOINK 

NORD 

NNO 

NSET2 

INCORE 

FIRST 

NAME 

SCALAR 

NSC 

LISTEL 

AKEL 

FTEL 

NODES 

FORCEN 

NWORK 

DISPL 

IERROR 


the  element  number 

the  element  type  (new  plug  number) 

the  order  of  the  displacement  array 

the  number  of  load  conditions 

the  order  of  the  element  stiffness  array 

the  order  of  the  LISTEL  array 

the  order  of  the  nodes  array 

the  data  set  number  of  the  displacement  matrix 
a  logical  variable  indicating  if  all  displace¬ 
ments  are  in  core 
a  logical  variable 
the  name  of  the  matrix  on  NSET2 
an  array  containing  the  input  scalars 
an  array  containing  the  number  of  stress 
components  for  each  element  type 
a  decoding  array  to  go  from  reduced  degrees 
of  freedom  to  system  degrees  of  freedom 
the  element  stiffness  array 
an  array  containing  element  applied  force 
an  array  containing  the  element  node  point 
net  element  force  matrix 

the  number  of  words  of  available  working  storage 
the  displacement  array 
error  return 


Output  Arguments:  FORCEN,  IERROR 


Error  Returns: 


IERROR  *  21.  if  EUTL3  can't  find  the  displacement  matrix 
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7. 


Calling  Sequence: 


F0RCE2 ( IEL , I PL , NMDB , NLOAD , NOINK , NORD , NNO , NSET2 , INCORE , 
FIRST , NAME , SCALAR , NSC , LISTEL , AKEL , FTEL , NODES , 

FORCEN ,  NWORK ,  DIS  PL ..  IERROR ) 

8.  Input  Tapes:  NSET2 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lOCA^  Bytes. 

12.  Subroutine  User:  F0RCE1 

13.  Subroutine  Required: 

COLMRD 

EUTL3 

STRPRT 

l1!.  Remarks:  None 
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1.  Subroutine  Name:  EPRINT 

2.  Purpose:  To  print  out  the  net  element  forces  or  net 

element  stresses  calculated  by  the  FORCE  or  STRESS  modules. 

3.  Equations  and  Procedures:  This  module  first  tests  the 

allocation  of  the  input  matrices.  If  both  input  matrices 
are  on  the  same  data  set,  then  the  first  input  matrix  is 
copied  onto  a  scratch  data  set. 

The  input  matrices  are  found  and  tested  for  compatability 
and  the  first  input  matrix  is  copied  if  necessary. 

The  matrix  containing  element  information  is  read  a  column 
at  a  time  as  is  the  matrix  containing  the  net  element  stress 
or  forces.  Then  the  input  print  control  is  tested  in  order 
to  write  out  the  correct  heading  for  either  the  forces  or 
stresses.  Subroutine  STRPRT  is  called  for  each  load 
condition  to  print  out  the  values  in  the  second  input  matrix. 

4 .  Input  Arguments : 

NUMOT  -  the  number  of  output  matrices 

N^mio  -  array  containing  the  names  of  the  output  matrices 

IOSPEC  -  array  containing  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

NAMIN  -  array  containing  the  names  of  the  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  sets 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  array  containing  the  input  scalars 

IERROR  -  error  return  code 

NWORK  -  the  number  of  words  of  available  work  storage 
WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR  -  error  return. 

6.  Error  Returns: 

IERROR  «  11  if  EUTL3  can't  find  first  input  matrix 

=  12  if  EUTL3  can’t  find  second  input  matrix. 

7.  Calling  Sequence: 

EPRINT ( NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR . ISSPEC , 
NUMSC , SCALAR , IERROR , NWORK , WORK ) 


8. 

Input  Tapes: 

INSPEC 

9. 

Output  Tapes: 

None 
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10.  Scratch  Tapes:  This  routine  uses  at  most  one  scratch 

tape. 

11.  Storage  Required:  Total  Storage  required  is  1028^  Bytes. 

12.  Subroutine  Us>2r:  EXEQ 

13.  Subroutines  Required: 

EUTL3 

ELREAD 

FREEUP 

STRPRT 

14.  Remarks:  EPRINT(a,b ,c)D 
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1. 


2. 


3. 


4. 


5. 


6. 


Subroutine  Name:  STRPRT 

Purpose:  To  write  on  the  system  output  data  set  the 

values  calculated  by  the  FORCES  and  STRESS  modules. 


Equations  and  Procedures: 

(a)  Test  the  input  variable  JFMT  to  write  out  the  correct 
heading  for  the  element  type  being  processed. 

(b)  Calculate  the  number  of  stress  or  force  points  to 
be  printed. 

(c)  If  ABS(STRESS(I) )  <  EZERO  then  STRESS ( I )=0.0. 

(d)  Write  out  the  values  in  array  STRESS  according  to 
the  input  format. 


Input  Arguments: 


IFMT 

EZERO 

NRSEL 

FMT 

NSC 

STRESS 


indicates  element  type  and  eici»vT'  5>»»ess  or 

force  print 

suppression  value 

length  of  STRESS  array 

format  used  in  printer 

number  of  force  or  stress  component 

input  array  containing  force  or  stress 

to  be  printed 


Output  Arguments:  None 


Error  Returns:  None 


7.  Calling  Sequence: 

STRPRT ( IFMT , EZERO , NRSEL , FMT , NSC , STRESS ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  E201g  Bytes. 

12.  Subroutine  User:  STRES2,  F0RCE2,  E PR I NT 

13.  Subroutine  Required;  None 

1*1 .  Remarks:  None 
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1. 


Subroutine  Name: 


ELREAD 


2.  Purpose:  This  routine  reads  one  column  of  the  matrix 

which  contains  element  information  and  puts  that  column 
in  working  storage  and  return's  element  variables. 


3.  Equations  and  Procedures:  Reads  one  column  of  the  input 

matrix  which  contains: 

IEL, IPL, 

NORD , (LISTEL ( I ) , I* 1 , NORD ) , 

NOINK, (AKEL(I) ,1-1, NOINK) , 

NORD , ( FTEL (I) ,1=1, NORD) , 

NNO, (NODES(I) ,I=1,NN0) , 

NSEL , ( SEL ( I ) , 1= 1 , NSEL ) , 

NRSEL , ( SZ ALEL ( I ) , 1=1 , NRSEL ) , 

NOINK, ( ANEL( I ) , 1=1 ,NOINK) , 

NMASS, (AMASS (I) ,I=1,NMASS) 

Then  decodes  and  returns  the  variables 
IEL, I PL, NORD, NOINK, NNO, NSEL, NRSEL  and  NMASS 


where 

LISTEL 

AKEL 

FTEL 

NODES 

SEL 

SZALEL 

ANEL 

AMASS 


contains  boundary  condition  information 
is  the  element  stiffness  matrix 
is  the  applied  load  matrix 

contains  the  grid  points  defining  the  element 
is  the  element  stress  array 
is  the  thermal  stress  array 
is  the  incremental  stiffness  array 
is  the  element  mass  matrix 


iJ.  Input  Arguments: 


NSET 

WORK 

NWORK 

IEL 

.IPL 

NORD 

NOINK 

NNO 

NSEL 

NRSEL 

NMASS 


data  set  number  of  input  matrix 

working  storage  into  which  element  data  is  read 

number  of  words  available  in  the  work  array 

the  element  number 

the  element  type  (plug  number) 

the  order  of  the  LISTEL  and  FTEL  arrays 

the  order  of  the  AKEL  and  ANEL  arrays 

the  order  of  the  nodes  array 

the  order  of  the  SEL  array 

the  order  of  the  SZALEL  array 

the  order  of  the  AMASS  array 


5.  Output  Arguments: 


NLEFT  -  the  number  of  work  remaining  in  the  work  array 

NEXT  -  the  next  useable  position  in  the  work  array 
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6.  Error  Returns:  None 

7.  Calling  Sequence: 

ELREAD ( NSET , WORK , NWORK , NLEFT , NEXT , IEL , IPL , NORD , NOINK , NNO , 
NSEL , NRSEL , NMASS ) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  43^l6  Bytes. 

12.  Subroutine  User:  STRES1,  F0RCE1 

13-  Subroutine  Required:  None 

1*J.  Remarks:  None 
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Subroutine  Name: 


FREEUP 


Purpose:  This  routine  is  used  to  compress  the  work 
array  by  compressing  out  unwanted  matrices  and  freeing 
up  more  storage  used  after  a  call  to  ELREAD. 


Equations  and  Procedures:  This  routine  will  only  com- 

presss  an  array  containing  submatrices  which  are  preceeded 
by  the  length  of  the  submatrix. 

The  number  of  non-zero  elements  of  MAT  is  tested  against 
NMAT.  If  they  aren't  equal  then  an  error  occurs. 

The  work  array  is  then  compressed  by  searching  for  those 
submatrices  to  be  saved  as  indicated  by  a  non-zero  position 
in  the  MAT  array.  When  a  submitrix  to  be  kept  is  found  it 
is  moved  up  in  the  work  array  and  its  initial  position  in 
the  work  array  is  kept  track  of  in  the  IPM  array. 

The  space  taken  up  by  submatrices  not  wanted  is  now  freed-up 
for  use  by  someone  else. 

Input  Arguments: 


WORK 

ISTART 

IPWORK 

MATOUT 


NMAT 

MAT 


the  input  matrix  to  be  compressed  up 

the  position  of  the  dimension  of  the  first 

submatrix  in  the  work  array 

the  position  in  the  work  array  at  which  the 

submatrices  are  to  be  moved  up  to 

an  integer  indicating  the  number  of  submatrices 

to  be  kept,  should  equal  the  number  of  non-zero 

elements  in  the  MAT  array 

the  length  of  the  MAT  and  IPM  arrays 

If  MAT(I)  is  non-zero  then  the  sub-matrix 

in  the  Ifch  position  will  be  kept,  if 

MAT(I)*0  then  that  submatrix  will  be  compressed 

out . 


Output  Arguments: 


WORK 

IPM 

NEXT 
I ERROR 


the  cleaned-up  input  array 

contains  the  initial  position  of  the  saved 

submatrix  in  the  cleaned-up  work  array 

the  next  useable  position  in  the  work  array 

error  return 


Error  Returns: 


IERROR  =  15,  if  there  is  an  input  error 


3.70 


7.  Calling  Sequence: 

FREEUP ( WORK , ISTART , I PWORK , MATOUT , NMAT , MAT ,1PM, NEXT , IERROR )- 

8.  Input  Tape:  None 

9.  Output  Tape:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  ^IB^g  Bytes. 

12.  Subroutine  User:  STRES1,  FORCE1 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  COLMRD 

2.  Purpose:  This  routine  is  a  utility  routine  used  to 

read  a  column  and  uncompress  it  if  necessary.  Used 
when  storing  more  than  one  column  in  the  work  array. 

3.  Equations  and  Procedures:  One  column  of  the  input  data 

set  is  read  and  EUTL9  is  called  to  uncompress  the  column 
if  necessary. 

4.  Input  Arguments: 

WORK  -  working  storage  array,  used  to  input  and 
output  the  column  read 

NSET  -  the  data  set  number  of  the  matrix  to  be 
read 

LENGTH  -  the  length  of  storage  available  to  EUTL9 

5.  Output  Arguments:  WORK 

6.  Error  Returns:  None 

7*  Calling  Sequence: 

COLMRD ( WORK , NSET , LENGTH ) 

8.  Input  Tapes:  NSET 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lDA^g  Bytes. 

12.  Subroutine  User:  STRES2,  F0RCE2 

13.  Subroutine  Required: 

EUTL9 

l1!.  Remarks:  None 
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1.  Subroutine  Name:  Q PRINT 


2.  Purpose:  This  is  the  control  routine  for  engineering 

printout  of  grid  point  data  of  reactions,  displacements 
and  eigenvectors.  It  can  also  be  used  for  printout  of 
user  matrices. 


3.  Equations  and  Procedures:  Index  pointer  indicating  the 

initial  position  in  the  work  array  are  calculated  to  make 
use  of  dynamics  storage  allocation. 

Subroutine  GFRINT1  is  called  to  process  input  matrices, 
ij.  Input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

SCALAR 

NWORK 

WORK 


the  number  of  output  matrices 

array  containing  the  names  of  the  output  matrices 
array  containing  output  data  set  numbers 
the  number  of  input  matrices 

array  containing  the  names  of  the  input  matrices 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

array  containing  the  input  scalars 

the  number  of  words  of  available  work  storage 

working  storage  array 


5.  Output  Arguments:  IERROR 

6.  Error  Returns:  None 


7.  Calling  Sequence: 


G PRINT (NUMOT , NAMIO , IOSPEC , NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 
NUMSC , SCALAR , IERROR , NWORK , WORK ) 


8. 

Input  Tapes:  INSPEC 

9. 

Output  Tapes: 

IOSPEC 

10. 

Scratch  Tapes: 

ISSPEC  -  one  scratch  tape 

required 

11. 

Storage  Required: 

Total  Storage  required 

is  308^  Bytes 

12. 

Subroutine  User: 

EXEQ 

13. 

Subroutine  Required:  GPRINT1 

1H.  Remarks: 


GPRINT(a, b,c, Cl.  C2.C3.CiJ.C5.C6.C7.C8. C9.C1C.C11 
D,E,F)G,H 


.  C12 , 
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Subroutine  Name:  QPRNT1 

Purpose:  This  routine  processes  the  input  matrices  and 

calls  the  appropriate  subroutines  to  print  either  reactions, 
displacements,  eigenvalues  and  eigenvectors  or  the  user 
input  matrix. 

Equations  and  Procedures:  The  input  matrices  are  all 

found  and  processed  as  they  are  found.  If  an  input  matrix 
can't  be  found  then  IERROR  is  set  to  indicate  which  matrix 
could  not  be  found.  Processing  is  terminated. 

(a)  Process  first  input  matrix  - 

This  matrix  contains  system  constants: 

NDIR  -  the  number  of  directions 

NDEG  -  the  number  of  types  of  degrees  of  freedom 

NREF  -  the  number  of  reference  points 

These  are  used  to  calculate  the  number  of  degrees  of 
freedom  in  the  system 

NSDOF  =  NDIK»NDEG#NREF 

(b)  Process  second  input  matrix  - 

This  is  the  transformation  matrix  for  application  of 
boundary  conditions  from  which  the  LIST  array  can  be 
calculated.  If  this  matrix  is  suppressed  then  generate 
a  dummy  list  array. 

(c)  Process  third  and  fourth  input  matrix  - 

This  matrix  is  either  the  reaction,  displacement,  eigen¬ 
vector  or  user  matrix  to  be  printed  in  eigineering 
x’ormat.  If  it  is  the  eigenvector  matrix  then  the  fourth 
input  matrix  is  the  eigenvector  matrix.  Depending  on 
the  input  scalar  KPRT  control  is  transferred  to  the 
section  which  decodes  one  of  the  above  matrices  for 
constants.  Then  the  matrix  is  stored  in  a  scratch  tape 
and  control  transfers  to  the  subroutine  which  prints 
out  the  matrix. 


Input  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 


the  number  of  output  matrices 

the  names  of  the  output  matrices 

an  array  containing  output  data  set  information 

the  number  «. "  input  matrices 

the  names  of  :-he  input  matrices 

an  array  containing  input  data  set  information 

the  number  -f  scratch  data  sets  available 

an  array  '•o.  lining  scratch  data  set  information 
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i}.  Input  Arguments,  Contd. 

NUMSC  -  the  number  of  input  scalars 

SCALAR  -  an  array  containing  the  input  scalar 

MAQEIG  -  maximum  number  of  eigenvalues  that  can  be  asked  for 

LIST  -  array  used  for  boundary  condition  inf  or-  "ition. 

Decoding  list  to  go  from  reduced  degrees  of 
freedom  to  total  degree  of  freedom. 

DISPL  -  working  storage  for  third  input  matrix 

EIGVAL  -  array  to  contain  eigenvector 

NWORK  -  number  of  words  of  available  working  storage 

WORK  -  working  storage  array 

5.  Output  Arguments:  IERROR 

6.  Error  Returns: 

IERROR  *  15,  user  type  error 

=  10#K+1,  where  K  is  the  position  of  the  input  matrix 
not  found. 

7.  Calling  Sequence: 

GPRNT1 ( NUMOT , NAMIO , IOSPEC ,NUMIN , NAMIN , INSPEC , NUMSR , ISSPEC , 

NUMSC , SCALAR , IERROR , MAXEIG , LIST , DIS  PL , EIGVAL , NWORK , 

WORK) 

8.  Input  Tapes:  INSPEC 

9.  Output  Tapes:  IOSPEC 

Scratch  Tapes:  ISSPEC 

Ijl.  Storage  Required:  Total  Storage  required  is  1000^  Bytes. 

12.  Subroutine  User:  GPRINT 

13.  Subroutine  Required: 

EUTL3  DISPPR 

EUTL9  EIGPPR 

DECODE  MATPRT 

REACTP 

l1}.  Remarks:  None 
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1. 

2. 

3. 


5. 

6. 


7. 

8. 
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Subroutine  Name:  DECODE 

Purpose:  This  routine  will  decode  a  format  matrix  and 

put  it  out  in  the  form  of  full  column  records  with  no  headers 
or  trailers. 


Equations  and  Procedures:  Read  each  column  into  a  work 

array  and  test  to  see  if  it  should  be  uncompressed.  Also 
keep  count  of  the  number  of  columns  read  in  case  there  are 
any  missing  columns.  A  missing  column  indicates  that  all 
row  elements  are  zero  so  regenerate  the  zero  column.  If 
an  error  occurs  then  call  TSUM  to  give  a  tape  summary  of  the 
input  data  set. 

Input  arguments: 


NSET 

NSETS 

IROW 

ICOL 

WORK 


the  data  set  number  of  the  FORMAT  matrix 

the  data  set  number  of  the  tape  on  which  the 

decoded  matrix  will  go 

row  dimension  of  input  matrix 

column  dimension  of  input  matrix 

work  array  of  order  IROW 


Output  Arguments:  JERROR  -  error  flag 

Error  Returns: 


JERROR  =  0,  no  error 
JERROR  *  1,  error 

Calling  Sequence: 

DECODE ( NSET , NSETS , IROW, ICOL , WORK , JERROR ) 

Input  Tapes:  NSET 

Output  Tapes;.  NSETS 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  SFS^  Bytes. 
Subroutine  User:  GPRNT1 


13.  Subroutine  Required: 

EUTL9 

TSUM 

1^.  Remarks:  None 


8.76 


1 


1.  Subroutine  Name:  REACTP 

2.  Purpose:  This  routine  controls  the  printing  of  reaction. 

3.  Equations  and  Procedures:  Subroutine  DISPL1  is  called  to 

print  out  reactions  for  each  load  condition. 

4.  Input  Arguments: 


NREP 

- 

number  of  reference  points 

NDIR 

- 

number  of  directions 

NDEG 

- 

number  of  types  of  degrees  of  freedom 

NLOAD 

- 

number  of  load  conditions 

NMDB 

— 

number  of  degrees  of  freedom  in  a  reduced  system 

NSETS 

data  set  number  of  reaction  matrix 

LIST 

— 

decoding  list  to  go  from  reduced  degrees  of 
freedom  to  total  degrees  of  freedom 

REACT 

- 

array  containing  reactions 

EZERO 

- 

effective  zero  for  suppression 

ROW 

- 

row  label 

COLMS 

- 

array  of  column  labels 

KPRT 

- 

code  denotes  reaction  print 

NWORK 

- 

number  of  words  available  in  working  storage 

WORK 

working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

REACTP  ( NREP ,  NDIR ,  NDEG ,  NLOAD ,  NMDB ,  NSETS ,  L  1ST ,  REACT ,  EZERO , 
ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  Required  is  322^  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

14.  Remarks:  None 
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Subroutine  Name: 


DISPPR 


r 


2.  Purpose:  This  routine  controls  the  printing  of  the 

displacements . 

3.  Equations  and  Procedures:  Subroutine  DISPL1  is  called 

to  print  out  displacements  for  each  load  condition. 

*J.  Input  Arguments: 

NREF 
NDIR 
NDEG 
NLOAD 
NMDB 
NSETS 
LIST 


DISPL 
EZERO 
ROW 
COLMS 
KPRT 
NWORK 
WORK 

5.  Output  Arguments:  Hone 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

DIS  PPR  ( NREF ,  NDIX ,  NDEG ,  NLOAD,  NMDB ,  NSETS ,  LIST ,  DISl'L ,  EZERO , 
ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  322-^g  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

1*1.  Remarks:  None 


number  of  reference  points 

number  of  directions 

number  of  types  of  degrees  of  freedom 

number  of  load  conditions 

number  of  degrees  of  freedom  in  reduced  system 

data  set  number  of  displacement  matrix 

array  for  boundary  conditions.  Decoding  list 

to  go  from  reduced  degrees  of  freedom  to  total 

degrees  of  freedom. 

array  containing  displacements 

effective  zero  f.r  suppression 

row  label 

array  of  column  labels 

code  denoting  displacement  print 

number  of  words  of  available  working  storage 

working  storage 
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1.  Subroutine  Name:  EIGPPR 

2.  Purpose:  This  routine  controls  the  printing  of  eigenvalues 

and  eigenvectors. 

3.  Equations  and  Procedures -•  Subroutine  DISPL1  is  called  to 
print  out  eigenvalues  anc,  eig«  nvector  for  each  eigenvalue. 

4.  Input  Arguments: 

NREF  -  number  of  reference  points 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 

NEVAL  -  number  of  eigenvalues 

NMDB  -  length  of  eigenvector  array 

NSETS  -  data  set  number  of  eigenvector  matrix 

LIST  -  decoding  .list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 
DISPL  -  array  containing  eigenvector 

EIGVAL  -  array  containing  eigenvalues 

EZERO  -  effective  zero  for  suppression 
ROW  -  row  label 

COLMS  -  array  of  column  labels 

KPRT  -  code  denoting  eigenprint 

NWORK  -  number  of  words  available  in  working  storage 

WORK  ~  working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

EIGPPR ( NREF , NDIR , NDEG , NEYAL , NMDB , NSETS , LIST , DISPL , EIGVAL , 
EZERO , RC w , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  S^^g  Bytes. 

12.  Subroutine  User:  0PRNT1 

13.  Subroutine  Required:  DISPL1 

1^4 .  Remarks:  None 


1.  Subroutine  Name:  MATPRT 

2.  Purpose:  This  routine  controls  the  printing  of  the  USER 

matrix. 

3.  Equations  and  Procedures:  Subroutine  DISPL1  is  called 

to  print  each  column  of  the  user  matrix. 

4.  Input  Arguments: 

NREF  -  number  of  reference  points 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 

NLOAD  -  number  of  columns 

NMDB  -  length  of  rows 

NSETS  -  data  set  number  of  USER  matrices 

LIST  -  decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 
DISPL  -  array  containing  user  matrices 

EZERO  -  .effective  zero  for  suppression 

NAME  -  name  of  input  matrix 

ROW  -  row  label 

COLMS  -  array  containing  column  label 

XPRT  -  code  denoting  user  matrix  print 

NWORK  -  number  of  words  available  in  working  storage 

WORK  -  working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

MATPRT ( NREF , NDIR , NDEG , NLOAD , NMDB , NSETS , LIST , DISPL , EZERO , 
NAME , ROW , COLMS , KPRT , NWORK , WORK ) 

8.  Input  Tapes:  NSETS 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  366^  Bytes. 

12.  Subroutine  User:  GPRNT1 

13.  Subroutine  Required:  DISPL1 

1^.  Remarks:  None 
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1.  Subroutine  Name:  DISPL1 

2.  Purpose:  To  print  reactions,  displacements,  eigenvectors, 

user  matrices,  and  calculate  and  print  eigenvalues  and  frequency. 

3.  Equations  and  Procedures:  The  value  of  KPHT  is  tested  to 

see  if  the  eigenvalue  frequency  must  be  calculated  and  to 
write  out  correct  heading  then  the  input  matrix  is  decoded 
and  printed  out. 

4.  Input  Arguments: 

NMDB  -  number  of  degrees  of  freedom  in  reduced  system 

EZERO  -  effective  zero  suppression  code 

DISPL  -  input  matrix  to  be  printed 

LIST  -  decoding  list  to  go  from  reduced  degrees  of 

freedom  to  total  degrees  of  freedom 
NREF  -  number  of  reference  points 

NDEG  -  number  of  types  of  degrees  of  freedom 

NLOAD  -  load  condition  number 

ROW  -  row  label 

TITLE  -  column  label 

KPRT  ~  code  indicating  types  of  print 

EXTRA  -  contains  name  of  input  matrix  or  eigenvalues 
DISP  -  working  storage 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7»  Calling  Sequence: 

DISPL1  ( K.r.SB ,  EZERO , DIS  PL ,LIST ,  NREP ,  NDIR ,  NDEG  ,  NLOAD ,  ROW ,  TITLE , 
KPRT, EXTRA, DISP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  906^  Bytes. 

12.  Subroutine  User:  REACTP,  DISPPR,  EIGPPR,  MATPRT 

13.  Subroutine  Required:  None 

14 .  Remarks :  None 


1.  Subroutine  Name:  REPLAS 


2 .  Purpose: 

Whenever  B  matrix  element  equals  corresponding  elements  of  c 
or  whenever  element  of  C  =  0,  the  output  matrix  A  will  contain 
a  direct  mapping  of  B.  When  B  elements  are  not  equal  to 
corresponding  eieme  ts  of  C,  elements  of  A  equal  those  non 
equal  elements  of  C  (excluding  C*  0.0) 


3 .  Equations  and  Pr  .  ^.edures : 

a)  input  matrices  B  and  C  are  copied  onto  two  scratch  tapes 

b)  Record  #1  is  read  from  input  matrix  B 

c)  Record  #J  is  read  from  input  matrix  C 

d)  .If  record  HI  words  equal  record  #J  words,  then  the  output 
record  equals  Record  HI 

e)  If  record  HI  words  are  not  equal  to  Record  HJ  words  then 
the  output  record  is  equal  to  Record  J 

f)  If  Record  J  *-Q  then  the  output  record  will  equal  Record  I 


Input  Arguments: 


NMOUT 

NAMOT 

IODS 

NMIN 

INPT 

INSP 

NSCR 

ISSP 

NMSCL 

NWKR 

wxa 

IPRINT 


number  of  output  matrices 

names  of  output  matrices 

unit  numbers  for  output  matrices 

number  of  input  matrices 

names  of  input  matrices 

unit  numbers  for  input  matrices 

number  of  scratch  units 

unit  numbers  for  scratch  files 

number  of  scalers 

scaler  array  (not  used) 

length  of  work  array 

work  storage  array 

print  control  (not  used) 


5*  Output  Arguments: 

EP.R  -  error  return  control 


6.  Error  Returns: 

ERR  *  .TRUE,  if  input  matrix  cannot  be  located 


7 •  Calling  Sequence: 

Call  REPLAS  (NHOUT, NAMOT, IODS, NMIN, INPT, INSP, NSCR, ISSP, NMSCL, 
SC , ERR , NWKR, WKR , IPRINT ) 

8»  Subroutine  User:  EXEQ 


9.  Subroutine  Required: 

EUTL3 

EUTL5 

EUTL6 
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Subroutine  Name:  HSUM 


2.  Purpose:  A  control  subroutine  which  is  used  to  call  subroutine 
SMDIS  and  SUMSTR  to  compute  the  sum  of  displacement,  the  sum  of 
reaction  and  the  sum  of  stress. 


3-  Equations  and  Procedures: 


(a)  Retreive  the  number  of  harmonic  and  circumferential  bound 
constants  from  system  matrix. 

(b)  Set  control  variable,  then  call  subroutine  SUMDIS  and 
subroutine  SUMSTR 


it .  3nput  Arguments: 


NUMOT 

NAMIO 

IOSPEC 

NUMTN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

ISCALE 

ERROR 

NWORK 

WORK 


the  number  of  output  matrices  (3) 

array  containing  the  names  of  output  matrices 

array  containing  the  output  data  set  number 

the  number  of  input  matrices  (^J) 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  set 

array  containing  scratch  data  set  numbers 

the  number  of  input  scalars 

used  by  EXEO 

error  return  code 

the  number  of  words  available  for  work  storage 
working  storage  array 


5.  Output  Arguments:  ERROR  -  Error  Flag 

6.  Calling  Sequence: 

(NUMOT, NAMIO , IOSPEC , NUMIN, NAMIN , INSPEC , NUMSR , ISSPEC , NUMSC , 
ISCALE, ERROR, NWORK , WORK) 


7.  Input  Tapes:  INSPEC 

8.  Output  Tapes:  None 

9.  Scratch  Tapes:  None 
10.  Subroutine  User:  EXEO 


11.  Subroutine  Required:  EUTL3,  SUMSTR,  SUMDIS 
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1.  Subroutine  Name:  HDECO 

2.  Purpose: 

(a)  To  update  the  harmonic  control  loop  matrix 

(b)  Extract  the  element  stiffness  matrix,  the  element  load 
matrix  from  the  master  element  stiffness  matrix 

3.  Equations  and  Procedures: 

(a)  Read  the  harmonic  number  into  core  and  decrease  this 
number  by  one.  If  this  number  is  equaled  to  zero  then  a 
null  harmonic  control  loop  matrix  will  be  formed.  There 
will  be  a  harmonic  loop  control  matrix  output  with  the 
dimension  of  IXI. 

(b)  Element  stiffness  matrix  and  the  element  load  matrix  will 
be  extracted  from  the  master  element  stiffness  matrix.  The 
extraction  is  dependent  upon  the  harmonic  number. 


4.  Input  Arguments: 


f 


NUMOT 

NAMIO 

IOSPEC 

NUMIN 

NAMIN 

INSPEC 

NUMSR 

ISSPEC 

NUMSC 

ISCALE 

ERROR 

NWORK 

WORK 


the.  number  of  output  matrices  (2) 
array  containing  the  names  of  output  matrices  (2) 
array  containing  output  data  set  numbers  (2) 
the  number  of  input  matrices  (3) 

array  containing  the  names  of  the  input  matrices  (3) 

array  containing  input  data  set  numbers 

the  number  of  scratch  data  sets  (1) 

array  containing  scratch  data  set  numbers  (1) 

the  number  of  input  scalars 

used  by  EXEO 

error  return  code 

the  number  of  words  available  for  work  storage 
working  storage  array 


5»  Output  Argument:  Error  -  Error  Flag 


6.  Calling  Sequence: 


(NUMOT,  NAMIO,  IOSPEC,  NUMIN,  NAMIN,  INSPEC,  NUMSR,  ISSPEC, 
NUMSC,  ISCALE,  ERROR,  NWORK,  WORK) 


7 •  Input  Tapes:  INSPEC 
8.  Output  Tapes:  IOSPEC 

9 •  Scratch  Tapes:  ISSPEC 


10.  Subroutine  User:  EXEC 

11.  Subroutine  Required:  EUTL3»  EUTL5>  EUTL6 
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1. 


Subroutine  Name: 


SUMSTR 


2.  Purpose:  To  compute  the  sum  of  stress  for  each  element  for 
a  given  circumferential  bounds,  then  output  the  results. 

3.  Equations  and  Procedures: 

(a)  Compute  the  working  storages  which  require  retreiving  all 
the  element  stress  from  the  input  matrix  and  retaining 
them  in  core. 

(b)  Compute  the  sum  of  stress  of  each  element. 

(c)  Output  the  sum  of  stress  for  each  element. 
k .  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices  (2) 

NIMIO  -  array  containing  the  names  of  the  input  matrices 

IOSFEC  -  array  containing  the  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

INSPEC  -  array  containing  the  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  set 

ISSPEC  -  array  containing  the  scratch  data  set  numbers 

NUMSC  -  used  by  EXEO 

ISCALE  -  used  by  EXEO 

IERROR  -  error  control  flag 

NWORK  -  the  number  of  words  available  for  the  work  storage 
WORK  -  working  storage  array 
ALLEM  -  number  of  element 

INUM  -  number  of  the  working  storages  has  allocated 

5.  Error  Returns: 

IERROR  ■  21  Does  not  have  enough  working  storage  to  be 

allocated  to  retreive  all  the  element  Stress  from 
the  input  matrix 

IERROR  »  15  Unable  to  find  the  input  matrix 

6.  Calling  Sequence: 

( NUMOT, NAMIO , IOSPEC , NUMIN , NAMIN, INSPEC , NUMSR, ISSPEC ,MUMSC , 
ISCALE, IERROR , NWORK , WORK, ALLEM , INUM ) 

7 •  Input  Tapes:  INSPEC 

8.  Output  Tapes:  IOSPEC 

9.  Scratch  Tapes:  None 

10.  Subroutine  User:  HSUM 

11.  Subroutine  Required:  EUTL3,  EUTL9,  EUTL5 ,  EUTL8 ,  EUTL6 
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1.  Subroutine  Name;  SUMD.IS 

2.  Purpose:  To  compute  the  sum  of  displacement  and  the  sum  of 
reactions  for  a  given  circumferential  bounds,  then  output  the 
results 

3-  Equations  and  Procedures: 

(a)  Compute  the  working  storages  required  to  retreive  all 
the  displacement  or  all  the  reactions  from  the  input 
matrix  and  retain  them  in  core. 

(b)  Compute  the  sum  of  displacements  and  the  sum  of  reactions. 

(c)  Output  the  sum  of  displacement  or  the  sum  of  reaction. 

4 .  Input  Arguments: 

NUMOT  -  the  number  of  output  matrices  (2) 

NIMIO  -  array  containing  the  names  of  the  input  matrices 

IOSPEC  -  array  containing  the  output  data  set  numbers 

NUMIN  -  the  number  of  input  matrices 

INSPEC  -  array  containing  input  data  set  numbers 

NUMSR  -  the  number  of  scratch  data  set 

ISSPEC  -  array  containing  scratch  data  set  numbers 

NUMSC  -  used  by  EXHO 

ISCALE  -  used  by  EXEO 

NWORK  -  the  number  of  w->rds  available  for  work  storage 
WORK  -  working  storage  array 
DNEQI  -  number  of  degree  of  freedom 
INUM  -  number  of  working  storages  allocated 
SUMT  -  sum  displacements  and  sum  reactions  based  on 
computation  control  variable 

5*  Error  Returns: 

IERROR  *  21  Not  enough  working  storage  to  hold  a21  the 
displacements  or  all  the  reactions  in  core 

IERROR  *  15  unable  to  find  the  input  matrix 

6.  Calling  Sequence: 

(NUMOT, NAMIO ,  IOSPEC ,  NUMIN ,  NAMIN ,  INSPEC ,  NUMSP. » ISSPEC ,  NUMSC , 
ISCALE , IERROR , NWORK , WORK , DNEQI , INUM , SUMT ) 

7.  Input  Tapes:  INSPEC 

8.  Output  Tapes:  IOSPEC 
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9.  Scratch  Tapes:  None 

10.  Subroutine  User;  HSUM 

11.  Subroutine  Required;  F.UTL3 ,  EUTL9 ,  EUTL5*  EUTL8,  EUTL6 
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1.  Subroutine  Name:  CHEQS 


2.  Purpose:  Main  execution  routine  Cholesky  Equation  Solver 

Abstraction  Instruction 

3.  Equations  and  Procedures: 

(a)  Locates  input  matrices  and  transfers  them  to  separate 
scratch  units.  Coefficient  matrix  is  converted  to  banded 
form  (by  repeated  calls  to  AKnZ) 

(b)  Triangularizes  coefficient  matrix  by  call  to  TCONTX  place 
triangularized  matrix  as  output  matrix  NAM0.T(1,1)  on  unit 
IODS  (1,1) 

(c)  Allocates  storage  for  equation  solver  calls  BEQSX  which 
generates  solution  matrix.  Solution  matrix  placed  as  out¬ 
put  matrix  NAMO?  (1,  NMOUT)  on  unit  IODS  (1,NM0UT) 

Input  Arguments: 

NMOUT  -  Number  of  output  matrices 

NAMOT  -  Names  of  output  matrices 

IODS  -  Units  for  output  matrices 

NMIN  -  Numoer  of  input  matrices 

INPT  -  Names  of  input  matrices 

INSP  -  Units  for  input  matrices 

NSCR  -  Number  of  scratch  units 

ISSP  -  Logical  unit  numbers  for  scratch  units 

NMSCL  -  Number  of  scalars  input 

SC  -  Input  scalars 

NWKR  -  Working  storage  size 

WKR  -  Actual  working  storage 

IPRINT  -  Print  control 

5.  Output  Arguments: 

ERR  -  Logical  variable  indicating  error 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  CHEQS  (NMOUT, NAM OT, TODS, NMIN, INPT, INSP, NSCR, ISSP, NMSCL, 

SC , ERR , NWKR ,  WK3 ,  IPRINT) 

8.  Subroutine  User:  EXF.Q  -  Instruction  Execution  Control  Routine 

9o  Subroutine  Required: 

EUTL3,  EUTL9,  AKNZ,  TCONTX,  EUTL8 ,  BEQSX,  EUTL5 ,  EUTL6 
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1.  Subroutine  Name:  AKNZ 

2.  Purpose:  Store  A  -  Matrix  in  banded  column  form 

3-  Input  Arguments: 

ACOL, 13 , IZR, NZEL, ICOL , N, ICND 

Error  Returns:  None 

5.  Calling  Sequence: 

Call  AKNZ  (ACOL, 13, IZR, NZEL, ICOL,N, ICND 

6.  Output  Tapes:  13 

7.  Scratch  Tapes:  None 

8.  Subroutine  User:  CHEQS 

9.  Subroutine  Required:  None 
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1. 


Subroutine  Name:  TCONTX 


2.  Purpose :  This  routine  controls  tape  flow  for  the  triangularization 

routine. 

3.  Equations  and  Procedures: 

(1)  Controls  for  setting  up  computation  passes  are  computed  in 
ICALC  and  ISTRT. 

(2)  A  portion  of  the  input  matrix  A  is  r-ead  in  from  MTAPE. 

(3)  This  information  is  given  to  the  routine  TTRI  which 
actually  performs  the  triangularization  for  row  numbers 
ISTRT  to  ICALC. 

(*0  This  triangularized  output  portion  in  A  is  stored  on  tape 
NTAPE. 

(5)  Computation  is  repeated  for  each  portion  of  the  matrix 
until  all  rows  are  completed.. 

Input  Arguments: 

N  =  order  of  system  to  be  handled 

IZR  *  banding  information  array 

NZEL  »  banding  information  array 

A  *  storage  array  for  input  row  of  banded  matrix  which  is 

read  by  routine 

NTOTAL  *  total  number  of  words  which  can  be  considered  as  a 
"core-full" 

ATRI  *  Intermediate  storage  array  equals  length  of  maximum 
order 

MTAPE  =  input  tape  logical  number 
NTAPE  »  output  tape  logical  number 

5.  Output  Arguments: 

IERROR  *  error  indication  value 

WS  *  accumulative  determinant 

6.  Error  Returns:  IERROR  not  *  0  if  WS  is  returned  from  TTRI 

as  less  than  zero 

7.  Calling  Sequence:  CALL  TCONTR  (N,  IZR,  NZEL,  A,  NTOTAL,  ATRI, 

MTAPE*  NTAPE,  IERROR,  WS 

8.  Input  Tapes:  MTAPE  «  input  matrix  A  in  banded  row  form.  Each  row 
equals  1  record 

9.  Output  Tapes:  NTAPE  *  triangularized  matrix  T  in  banded  row 
form.  Each  row  equals  1  record. 

10.  Scratch  Tapes:  None 
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Subroutine  Name:  TTRI 


Purpose:  To  triangularize  rows  ISTRT  to  ICALC  of  a  banded 

Matrix  A. 

Equations  and  Procedures: 

(1)  This  routine  triangularizes  rows  ISTRT  to  ICALC  of  a 

banded  matrix  A  where  rows  1  to  ISTRT  =1  of  the  A  matrix 
(already  triangularized)  are  on  tape  NTAPE. 

(?)  If  ISTRT  =  1,  then  NTAPE  and  work  storage  ATRI  are  not 
used  since  A  is  assumed  to  be  in  core. 


(3)  Procedure: 


Using  Cholesky  technique,  the  off  diagonal  terms  of  the 
portion  in  core  are  triangularized.  Off  diagonals  are 
then  computed.  Output  is  stored  in  array  A. 


(*J)  Cholesky  equations: 

S11  =  (ail^ 

<2> 


(3)  sii  =  (aii  - 


o  ? 

s2  )  i>l 


{h)  s  »  a 


lj  "  aij  "  J2  Xi  *3  >  1 

1  =  1 


(5)  =  0  ,  i  >  J 


ISTRT  -  beginning  row  of  triangularized  portion 
ICALC  =  end  row  of  triangularized  portion 

IZR  =  banding  information  array 

NZEL  -  banding  information  array 

NTAPE  =  logical  tape  number  of  input  tape.  NTAPE  =  7 

A  =  storage  array  for  input  A  and  also  output  array 

ATRI  =  working  storage  array 


5.  Output  Arguments:  A  =  output  array 

6.  Error  returns:  IERROR  =  I  =  row  number  such  that  WS  =  s. .  is 

not  greater  than  zero.  11 

7.  Calling  Sequence:  CALL  TTRI  (ISTRT,  ICALC,  IZR,  NZEL,  NTAPE, 

A,  ATRI,  IERROR,  WS) 

8.  Input  Tapes:  NTAPE  =  tape  which  contains  already  triongularized 

rows  of  matrix. 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  A(l),  ATRI(l),  HZEL(l),  IZR(l) 
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12.  Subroutine  User: 

13.  Subroutines  Requ 


TCONTX 
.red:  None 


1.  Subroutine  Name:  BEQSX 

2.  Purpose;  To  perform  simultaneous  equation  solution  for  banded 

symmetric  matrix  input  using  Cholesky  procedure. 

3*  Equations  and  Procedures; 

(1)  Tape  110  which  contains  the  assembled  load  columns  is 
spaced  down  to  the  appropriate  position  for  reading. 

(2)  A  loop  is  set  up  based  on  NL  load  conditions.  Each  load 
is  considered  separately. 

(3)  The  program  is  designed  so  that  a  "core-filled"  piece  is 
considered  at  one  time.  The  procedure  to  handle  this  is 
set  up. 

(4)  Each  load  is  read  into  FOOL  from  Tape  110  and  the  known 
displacements  are  placed  into  their  appropriate  position 
in  DISPL 

(5)  A  call  to  ESCONT  is  made.  This  is  the  routine  which 
actually  does  the  computation. 

(6)  Displacement  equals  answers  are  written  on  Tape  112. 

(7)  Steps  6-9  are  repeated  for  each  load  condition. 

4.  Input  Arguments;  CK1I  »  FORMAT  tape  compatible  matrix  name 

5*  Output  Arguments;  None 

6 .  Error  Returns;  None 

Calling  Sequence;  CALL  BEQSX(AK,NZEL,IZR,XK,DISPL,PCOL,RSUM, 

NR0VJ-,  13,17,110,  NMDB ,  112 ,  NTOTAL ,  NL ) 

8.  Input  Tapes:  110  *  assembled  loads 

7  ■  input  triangularized  tended  matrix  array 

9.  Output  Tapes;  112  *  displacements 

10.  Scratch  Tapes;  None 

11.  Storage  Required;  XK  (2000)  NROW(250) 

12 .  Subroutine  User;  CHEQS 

13.  Subroutines  Required;  ESCONT 
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1.  Subroutine  Name;  XCALK 

2.  Purpose:  Solves  for  X  where  A*X  ■  XK  and  A  is  upper  triangular 
matrix* 

3.  Equations  and  Procedures:  Determines  ISTRT  to  ICALC  of  the 
column  vector  X  in  the  matrix  equations  A#X  »  XK  where  A  is 
upper  triangular  matrix  and  X  and  XK  are  column  vectors 


X(N) 


XK(N) 

A 


X(I)  -  XK(I)  -  l  u  x  +  x  AILXL 


This  constitutes  the  second  part  in  calculating  an  equation 
solution  by  Cholesky  or  "square  root"  method. 

4.  Input  Arguments: 

N  *  order  of  system 

ISTRT  «  beginning  row  number  of  computation  pass 
ICALC  *  end  row  number  of  computation  pass 
IZR  »  number  zero  elements  in  row  of  reduced  matrix 
NZEL  *  cumulative  total  of  nonzero  elements  from  row  1  thru 
i  -  1  of  reduced  matrix 
A  *  storage  array  for  matrix 

XK  *  column  vector  array 

5 *  Output  Arguments: 

X  *  output  vector  array 
RSUM  *  updated  intermediate  array 

6 .  Error  Returns:  None 

7.  Calling  Sequence:  CALL  XCALK  (N,  ISTRT,  ICALC,  IZR,  NZEL,  A, 
XK,  RSUM,Xl 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
10.  Scratch  Tapes:  None 


A(1>,XK(1),RSUM(1),X(1),IZR(1),NZEL(1) 


12 .  Subroutine  User:  ESCONT 

13.  Subroutines  Required:  None 


! 


T 


w 
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1 .  Subroutine  Name:  ESCONT 

2.  Purpose:  Solves  matrix  equation  A  *  A  transpose  *  X  *  P  for  X 

3.  Equations  and  Procedures:  The  matrix  equation  A  *  A  transpose 
X  «  P  is  solved  for  X  by  solving  the  two  matrix  equations 
A#xk*  F 

A  TRANSPOSE  *  X  «  XK 

Where  A  is  a  banded  lower  triangular  matrix  and  X  and  F  are  column 
vectors. 


Procedure: 

(1)  Rows  ISTRT  to  ICALC  of  A  are  read  from  Tape  7. 

(2)  A  call  to  KCALC  routine  computes  XK. 

(3)  A  call  to  XCALK  routine  computes  X. 


(ij)  Steps  1,  2,  and  3  are  repeated  for  each  pass. 
4 .  Input  Arguments: 


N 

NPASS  * 

NROW  » 

IZR 

NZEL 

A 

F 

NTAPE  * 
XK 

RSUM 


order  of  system 

number  of  computation  passes  necessary 
array  for  control  of  computation  passes 
banding  information  array 
banding  information  array 
storage  array  for  input  matrix 
storage  array  for  input  column 
input  tape  logical  number  *  17 
working  storage  array 
working  storage  array 


5.  Output  Arguments:  X  *  output  answer  column  array 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  ESCONT  (N,  NPASS,  NROW,  IZR,  NZEL,  A, 

F,  X,  XK,  RSUM,  NTAPE  ) 

Input  Tapes:  Tape  17  contains  input  triangular  matrix  A.  A  is 
in  banded  form.  Each  row  is  a  separate  record. 


j 

t 


9<>  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  NROW(l),IZR(l)tNZEL(l),A(l),F(l),X(l),XK(l),  RSUM(l) 

12.  Subroutine  User:  BEQSX 

13.  Subroutines  Required:  KCALC 

XCALK 
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1 .  Subroutine  Name:  KCALC 

2.  Purpose:  Solve  for  XK  where  A*XK  *  F  and  A  is  a  banded  lower 

triangular  matrix. 

3.  Equations  and  Procedures:  Determine  elements  ISTRT  to  ICALC  of 
the  column  vector  XK  in  the  matrix  equations  A*XX  *  F 


XK(1) 


I  -  1 

XK(I)  -  F(I)  -£  Att  XK(L)  I>1 

L  -  1  LI 


This  constitutes  the  first  step  in  equation  solution  by  Cholesky 
or  "square  root"  method. 

4.  Input  Arguments: 

ISTRT  «  beginning  row  number  of  computation  pass 
ICALC  *  end  row  number  of  computation  pass 
IZR  *  number  zero  elements  in  row  of  reduced  matrix 
NZEL  *  cumulative  total  of  nonzero  elements  in  rows  1  thru  i  -  1 
of  reduced  matrix 

A  *  storage  array  for  input  matrix 
F  *  column  vector  array 

5.  Output  Arguments:  XK  *  output  vector  array 

6 .  Error  Returns:  None 

7-  Calling  Sequence:  CALL  KCALC  (ISTRT,  ICALC,  IZR,  NZEL,  A,  F,  XK) 

8 .  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  A(1),XK(1) ,F(1) ,IZR(1) ,NZEL(1) 

12.  Subroutine  User:  ESCONT 

13.  Subroutines  Required:  None 
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1. 


Subroutine  Name: 


ANALIC 


2.  Purpose:  Driver  routine  for  ANALIC  Module  System  constants 

are  defined  in  core  and  the  storage  required  is  calculated. 

If  sufficient  storage  exists  for  this  problem,  execution 
continues  with  the  actual  storage  allocation  in  routine 
STORIC. 


3*  Equations  and  Procedures:  None 

4.  Input  Arguments: 


NUMOUT 

NAMOUT 

IODS 

NUMIN 

NAM  IN 

INSPEC 

NUMSCR 

ISSPEC 

NUMSCL 

NAMSCL 

NWORKR 

W 


Number  of  output  matrices 

Array  containing  output  matrix  names 

Array  containing  output  matrix  logical  units 

Number  of  input  matrices 

Array  containing  input  matrix  names 

Array  containing  input  matrix  logical  units 

Number  of  scratch  data  sets  available 

Array  containing  scratch  data  set  units 

Number  of  scalars 

Array  containing  scalars 

Number  of  words  of  available  working  storage 
Array  of  working  storage 


5.  Output  Arguments: 


IERROR  -  Error  flag 

6.  Error  Returns: 


IERROR  *  21  -  input  matrix  2  could  not  be  found 

*  15  -  error  occurred  somewhere  in  ANALIC 

*  0  -  no  error 


7.  Calling  Sequence: 


Call  ANALIC  (NUMOUT,  NAMOUT,  IODS, 
NUMSCR,  ISSPEC,  NUMSCL, 


W) 

9 

8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

NUMIN,  NAMIN,  INSPEC, 
NAMSCL,  IERROR,  NWORKR, 
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11.  Storage  Required:  A2A^g  bytes 

12.  Subroutine  User:  EXEC 

13*  Subroutines  Required: 

WCLOCK,  EUTL3  >  SIZEIC,  STORIC,  TIMER 
14 .  Remarks :  None 


Subroutine  Name:  SIZEIC 

Purpose:  To  determine  the  total  amount  of  storage  needed 

in  local  arrays  and  in  working  storage  for  the  problem  to 
be  solved. 

Equations  and  Procedures: 

For  Equation  Solution  Only 
Local  storage  must  be  less  than  4000 
( 2*NLV+1 ) #NMDB  <  4000 

Common  working  storage  must  be  less  than  NWORKR 
(NMDB* (NMDB+1 ) )/2  £  NWORKR 

For  Total  Statics  Problem 

Local  storage  required  must  be  less  than  4000 

2*NMDB2+NORDM+7,JNOM+2*MAX(NORDM>  NRSELM  )+2NSYS 
+  MAX ( ( NORDM* ( NORDM+1 ))/2,  NORDM* NRSELM ) +1 
+  NLV* ( 1+NMDB+NMDB2 )  <  4 000 

NLV  is  reduced  to  1  to  try  to  make  problem  fit .  Common 
working  storage  must  be  less  than  NWORKR. 

MAX ( [ NR  *NELEM+ ( NMDB2+ ( NMDB2+1 ) ) /2 ] , 

[2*NORDM+NRSELM+13+3( ( ( NORDM* ( NORDM+1 ) )/2  + 

NNOM+NELEM*  NRSELM ]  <  NWORKR 

Input  Arguments: 

NMDB  -  Order  of  the  reduced  system 

NLV  -  Number  of  load  conditions  (may  be  reduced  on  return) 

NREF  -  Number  of  reference  points 

NORDM  -  Largest  number  of  rows  in  element  stiffness  matrix 

NNOM  -  Largest  number  of  node  points  for  any  element 

NMDB2  -  Number  of  l's  and  2’s  in  system 
NRSELM  -  Maximum  number  of  rows  in  elemem  stress  matrix 
NELEM  -  Number  of  elements 

NSYS  -  Total  number  of  unreduced  system  degrees  of  freedom 
NWORKR  -  Number  of  words  of  available  working  storage 
KALC  -  Calculation  control 

EQUAT  -  Logical  equation  solver  only  indicator 

ERROR  -  Error  flag 

Output  Arguments:  None 
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Error  Returns: 


ERROR  -  True  if  problem  will  not  fit  in  core 
Calling  Sequence: 

Call  SIZEIC  ( NMDB , NLV , NREF , NORDM , NNOM , NMDB2 , HRSELM , NELEM , 
NSYS , ERROR , NWORKR , KALC , EQUAT ) 

Input  Tapes:  None 

Output  Tapes:  NPOT 

Scratch  Tapes :  None 

Storage  Required: 

Subroutine  User:  ANALIC 

Subroutines  Required:  None 

Re;  '.arks :  None 
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Subroutine  Name: 


STORIC 


Purpose:  To  define  the  storage  for  all  arrays  used  by 

ANALIC. 


Equations  and  Procedures: 


Storage  is  dynamically  allocated  in  both  the  local  array 
and  common  working  storage.  Starting  locations  are  defined 
in  the  large  local  and  common  area  and  passed  thru  the 
argument  list  to  the  KALCON  routine. 


Input  Arguments: 


NMDB 

NLV 

NREFV 

NORDM 

NNOM 

NRSELM 

NMDB2 

REPORT 

NOUT 

KALC 

NSYS 

NMDBO 

INSPEC 

NAMIN 

NAMSCL 

IODS 

ISSPEC 

NAMOUT 

U 

SC 

NELEM 

EQUAT 

IERROR 


-  Order  of  reduced  system 

-  Number  of  load  conditions 

-  Number  of  reference  points 

-  Largest  order  of  element  stiffness 

-  Maximum  number  of  nodes  for  any  element 

~  Maximum  number  of  rows  in  any  element  stress  matrix 

-  Number  of  l's  and  2's 

-  Array  used  to  store  printout  information 

-  Scalar  used  with  REPORT 

-  Calculation  control  for  equation  solver 

<-  Total  number  of  unreduced  system  degrees  of  freedom 

-  Number  of  bounded  out  points  OS 

-  Array  containing  input  matrix  logical  units 

-  Array  containing  input  matrix  names 

-  Array  containing  input  scalars 

-  Array  containing  output  matrix  logical  units 

-  Array  containing  input  matrix  logical  units 

-  Array  containing  output  matrix  names 

-  Work  array  of  order  NWORKR 

-  Array  containing  system  constants 

-  Number  of  elements 

-  Equation  solver  only  indicator 

-  Error  flag 


Output  Arguments:  None 


Error  Returns :  IERROR 


Calling  Sequence: 

Call  STORIC  (NMDB, NLV, NREFV, NORDM, WHOM, NRSELM, NMDB2, REPORT, 

NOUT , KALC , NSYS ,  NMDBO , INSPEC , NAMIN , IERROR , NAMSCL , 
IODS , ISSPEC , NAMOUT , U , SC , NELEM , EQUAT ) 
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Input  Tapes :  None 

Output  Tapes :  None 

Scratch  Tapes:  None 
Storage  Required:  ^a1,i6  Bytes 

Subroutine  User:  ANALl'C 

Subroutines  Required:  INPTIC,  KALCON 

Remarks :  None 
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1. 


Subroutine  Name* 


INPTIC 


2.  Purpose:  Reads  input  matrices  into  core. 

3.  Equations  and  Procedures: 

A.  Define  input  matrix  logical  unit  numbers. 

B.  If  TR  matrix  .'s  present,  have  total  statics  problem. 

1.  Generate  LIST  by  calling  LISTIC  routine. 

2.  If  PR  present,  read  in  W  array 

If  not  present  W1(I)  =  0.0  and  go  to  5* 

3-  If  SUBL  present,  read  into  POOL  array. 

If  not  W1(I)  =  W(I)  (Trans  matrix) 

4.  If  SUBL  present  compute  WlfFCOL(I))  *  W(I). 

5.  Read  in  POOL  array. 

6.  Form  TOTAL  load  column 

PCOL(IL)  *  W(JL)  +  Wl(JL) 

7.  Compute  TRST  array  =  [TRANS]  [LIST"1] . 

8.  Read  column  of  AK  into  Wl.  Use  TRST  to  map 
column  of  into  AK  stored  lower  half  symmetric. 

C.  If  TR  matrix  is  not  present,  just  equation  solve 

1.  Read  PR  matrix  into  DISPL  array  (NL  columns). 

2.  Read  AK  matrix  into  core  (lower  half  symmetric). 

D.  Read  values  of  prescribed  displacements  into  core, 
if  present. 

I<.  Input  Arguments: 


LIST 

CONOPT 

POOL 

DISPL 

W 

NSYS 

NMDBO 

NMDB2 

NL 

NAMIN 

INSPEC 

IERROR 

NAMSCL 

NMDB 

Wl 

AK 

IW 

TRAN 


Array  which  maps  reduced  to  unreduced  D.O.F. 
Load  scalar 
External  load  column 
Prescribed  displacement  column 
Working  storage 

Total  system  unreduced  degrees  of  freedom 

Number  of  bounded  out  degrees  of  freedom 

Number  of  l’s  and  2’s 

Number  of  load  conditions 

Array  containing  input  matrix  names 

Array  containing  input  matrix  logical  units 

Error  flag 

Array  containing  scalars 
Order  of  reduced  system 
Working  storage 
Stiffness  matrix 
Working  storage 

Working  storage  for  trnasformation  matrix 
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Output  Arguments:  None 

Error  Returns: 

IERROR  -  Set  to  i*10+l  if  input  matrix  i  cannot  be  found. 
Calling  Sequence: 

Call  INPTIC  ( LIST, CONOPT, POOL ,DISPL,W,NSYS,NMBD0,NMDts2,NL, 
NAMIN , INSPEC , IERROR , NAMSCL, NMDB , W1 , AK , IW , TRAN ) 

Input  Tapes: 

NAMIN(l.l),  (1,4),  (1,5),  (1,6),  (1,7),  (1,8) 

Output  Tapes:  None 

Scratch  Tapes :  None 

Storage  Required:  lBBA-^g  bytes 

Subroutine  User:  STORIC 

Subroutines  Require-i: 

UNITNM,  LISTIC,  INPTI1,  EUTL3 ,  EUTL9 
Remarks :  None 
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Subroutine  Name: 


INPTI1 


Purpose:  Read  a  column  of  a  specified  input  tape  into 

core  in  full  format. 

Equations  and  Procedures: 

1.  Locate  matrix  on  specified  tape  by  calling  EUTL3* 

2.  Uncompress  column  if  necessary  by  calling  EUTL9* 

Input  Arguments: 

NAME  -  Input  matrix  name  sought 

IN  -  Input  matrix  logical  unit 

WORK  -  Working  storage 

MAXW  -  Number  of  words  of  working  storage 
Output  Arguments: 

IMAX  -  Number  of  rows  in  matrix  found 

JMAX  -  Number  of  columns  in  matrix  found 

ERROR  -  Error  flag 

Error  Returns: 

ERROR  -  True  if  matrix  could  not  be  found 
Calling  Sequence: 

Call  INPTI1  (NAME, IMAX, JMAX, IN,ERROR, WORK, MAXW) 

Input  Tapes :  IN 

Output  Tapes :  None 

Scratch  Tapes:  None 

Storage  Required:  2B6^g  fiy^es 

Subroutines  Used: 

INPTIC 

Subroutines  Required.*. 

EUTL3,  EUTL9 
Remarks :  None 


/ 
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Subroutine  Name: 


LISTIC 


Purpose:  Generate  values  for  LIST  array  from  the 

USER04  TR  matrix. 

Equations  and  Procedures: 

1.  Locate  TR  matrix. 

2.  Read  values  into  core. 

3.  Eliminate  IROW  values  <_  NMDBO. 

Sort  the  remaining  terms  by  IVAL  values. 

Input  Arguments: 

IA  -  Working  storage  of  length  NSYS 

IB  -  Working  storage  of  length  NSYS 

NMDB2  -  Number  of  l's  and  2's 

NMDBO  -  Number  of  O's 

NSYS  -  Number  of  0's  plus  l's  plus  2's 

NAME  -  Array  containing  input  matrix  name 

INI  -  Input  matrix  logical  unit 

Output  Arguments: 

LIST  -  Array  which  maps  reduced  to  system  D.O.P.'s 
ERROR  -  Error  flag 

Error  Returns: 

ERROR  -  True  If  input  matrix  cannot  be  found 
Calling  Sequence: 

Call  LISTIC (IA, IB, LIST, NMDB2.  NMDBO, NSYS, NAME, INI, ERROR) 

Input  Tapes:  INI 

Output  Tapes :  None 

Icratch  Tapes:  None 

Storage  Required:  JJlC^g  Bytes 

Subroutine  Used:  STORIC 

Subroutines  Required:  EUTL3 

Remarks :  None 
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1.  Subroutine  Name:  UNITNM 

2.  Purpose:  To  generate  Input  or  output  matrix  names  and 

logical  units  based  on  only  the  matrices  present, 

3-  Equations  and  Procedures: 

Check  the  NAMSCL  array  which  represents  all  input  and  output 
matrices.  If  the  value  of  NAMSCL(I)  ■  1,  then  matrix  I  was 
present;  if  NAMSCL(I)  *  0,  the  matrix  was  suppressed.  Searcn 
for  only  the  matrices  present  and  define  their  matrix  position 
and  logical  unit  in  arrays  MATN  and-  UNIT,  respectively. 

4.  Input  Arguments: 

NAMSCL  ~  Array  containing  input  scalars 

MAXN  -  Number  of  NAMSCL  values  to  be  searched 

ISPEC  -  Array  containing  matrix  logical  units 

5.  Output  Arguments: 

NP  -  Number  of  matrices  present 

MATN  -  Array  containing  present  matrix  names 

UNIT  -  Array  containing  present  matrix  logical  units 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  UNITNM ( NAMSCL, MAXN , ISPEC , NP , UNIT , MATN ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  226-^g  Bytes 

12.  Subroutine  Used: 

KALCOM,  INPTIC 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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Subroutine  Name: 


KALCON 


Purpose t  To  control  solution  of  statics  problem  in  core. 

Displacements,  stresses,  forces,  and  reactions  are  computed. 

Equations  and  Procedures: 

If  complete  STATICS  problem, 

(a)  Read  element  properties. 

(b)  Assemble  stiffness  matrix. 

(c)  Solve  for  displacements. 

(d)  Generate  stresses  and  forces. 

(e)  Generate  reactions. 

If  equation  solve  only, 

(a)  Solve  system  of  equations. 


Input  Arguments: 


DISPL 

POOL 

LIST 

CONOPT 

LISTEL 

NODE 

SIGEL 

SIGELN 

W 

AKEL 

AK 

FTEL 

FOOL 

AF 

W1 

SEL 

SZALEL 


Arrays  which  define  storage  locations 
to  be  used  inside  subroutine.  Actual 
values  need  not  be  present  when  routine 
is  called.  The  values  will  be  generated 
inside  the  routine. 


Output  Arguments: 


REPORT 

NOUT 

NL 

KALC 

NORDM 

NAMSCL 


-  Array  used  for  time  printout  later 

-  Scalar  used  for  time  printout  later 

-  Number  of  load  conditions 

-  Calculation  control  for  equation  solver 

-  Number  of  rows  in  largest  element  stiffness  matrix 

-  Array  containing  scalars 


Output  Arguments,  Continued: 

IODS  -  Array  containing  output  matrix  logical  units 

ISSPEC  -  Array  containing  scratch  matrix  logical  units 

NAMIN  -  Array  containing  input  matrix  names 

NAMOUT  -  Array  containing  output  matrix  names 

INSPEC  -  Array  containing  input  matrix  logical  units 

IERROR  -  Error  flag 

SC  -  Array  containing  system  constants 

EQUAT  -  Equation  solver  indicator 

Error  Returns :  None 

Calling  Sequence: 

Call  KALCON  (DISPL, POOL, LIST, CONOPT,LISTEL, NODE, SIQEL,SIGELN 
W , AKEL , AK , FTEL , PCOL , AP , HI , SEL , SZ ALEL , REPORT , NOUT 
NL, KALC , NORDM , NAMSCL , IODS, ISSPEC , NAMIN, NAMOUT, 
INSPEC , IERROR , SC , EQUAT ) 

Input  Tapes:  NAMIN 

Output  Tapes :  NAMOUT 

Scratch  Tapes:  ISSPEC (1,1) 

Storage  Required:  l^E^g  bytes 

Subroutine  User:  STORIC 

Subroutines  Required: 

UNITNM, EUTL1 , EUTL4 , WCLOCK, ASMAIC , ASMPIC , DSPCIC , DISPIC , 

EUTL5 , EUTL6 , PARCIC , RECTIC , STRS IC 


Remarks : 


None 


Subroutine  Name: 


ASMAIC 


Purpose:  Assembles  and  reduces  the  following  matrices 

in-core  based  on  the  value  of  KODE. 

KODE  j  Matrices  Assembled  and  Reduced 


Stiffness  and  Element  Applied  Loads 
Stiffness 

Element  Applied  Loads 
Mass 

Equations  and  Procedures: 

The  value  of  KODE  is  determined  and  control  passes  to  one 
of  the  three  areas  to  perform  ;the  assembly  and  reduction. 
Next,  the  appropriate  element  matrices  and  the  LISTEL  array 
are  read  from  tape  K4  for.  the  first  element.  Assembly 
and  reduction  is  now  performed  using  the  LISTEL  array  and 
iterating  across  the  matrix  bottom  half  rows  and  columns 
process  is  repeated  for  each  element. 

For  the  case  where  both  the  stiffness  matrix  and  the  element 
applied  loads  are  to  be  assembled  (KODE-1),  the  presence  of 
prescribed  displacements  causes  the  routine  to  form  the 
product  of  the  prescribed  displacements  and  the  corresponding 
elements  in  the  stiffness  matrix  and  then  subtract  this 
quantity  from  the  load  column.  The  reason  for  this  can 
be  seen  below.  If  (1)  represents  our  problem, 

K11  K12  X1  P1 

*  (1) 

K21  K22  X2_  L.P  2 


where  Xg  represents  the  prescribed  displacements,  we  can 
write 

K11X1  +  K12X2  “P1 

and  since  X0  is  known,  cur  problem  reduces  to 


K11X1  “  P1  '  K12X2 
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3.  Equations  and- Procedures ,  Continued: 

Thus  is  our  assembled  and  reduced  stiffness  matrix  and 
P1  ~  ^12*2  is  our  assembled  an^  reduced  element  applied 
load  column. 

If  just  the  stiffness  matrix  or  the  mass  matrix  is  to  be 
processed  (K0DE*2  or  *1),  the  assembly  and  reduction  is 
straightforward  based  on  LISTEL  and  iterating  across  the 
bottom  half  matrix  row  and  columns.  For  the  assembly  of 
the  mass  matrices,  this  routine  assumes  that  the  point  loads 
are  already  assembled  on  the  diagonal  of  AK  when  AK  is 
input. 

If  only  the  element  applied  load  column  is  desired  (K0DE»3)> 
the  assembly  and  reduction  is  performed  using  LISTEL  on 
the  column. 

4.  Input  Arguments: 

KH  -  Unit  number  of  tape  which-  contains  element  matrices 

NMDB  -  Order  cf  assembled  and  reduced  system 

DISPL  -  Prescribed  displacement  column  (if  required) 

KODE  -  Input  parameter  which  controls  which  matrices 

are  assembled 

NAMIN  -  Array  containing  input  matrix  names 

NMDBO  -  Number  of  0's. 

5.  Output  Arguments: 

FCOL  -  Assembled  and  reduced  element  applied  load 

column 

AK  -  Assembled  and  reduced  element  matrix  (symmetric 

stored  in  lower  half  by  rows) 

AKEL  -  Element  matrix 

FTEL  -  Element  applied  load  column 

T1  -  Time  assembly  and  reduction  started 

LISTEL  -  Array  which  maps  element  coordinates  into 
system  coordinates 
IERROR  -  Error  flag 

6.  Error  Returns: 

IERROR  -  Non-zero  if  error  occurs  in  ASMAIC 

7.  Calling  Sequence: 

Call  ASMAIC (K4 , NMDB, DISPL, FCOL, AK, AKEL, LISTEL, FTEL,  Tl, 

KODE , NAMIN , IERROR , NMDBO ) 
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8 .  Input  Tapes : 

INSPEC(1,3)  -  Contains  element  matrices 

9.  Output  Tapes:  None 

10.  Scratch  Tapfjs:  None 

11.  Storage  Required:  (DFE)^  bytes 

12.  Subroutine  User:  KALCON 

13*  Subroutines  Required: 

RDCLOK,  EUTL3 
m.  Remarks:  None 
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Subroutine  Name: 


ASMPJ.C 


Purpose:  To  print  the  following  assembled  matrices  based 

on  the  value  of  NODE.  The  grid  point  number  and  degree  of 
freedom  are  printed  for  each  row  of  the  symmetric  matrix  or 
column. 


KODE 


Matrices  Printed 


1 

2 

3 

5 

6 


Stiffness  and  Element  Applied  Loads 
Stiffness 

Element  Applied  Loads 
Mass 

Incremental  Stiffness 
Inverse  of  Stiffness 


Equations  and  Procedures: 


(a)  The  time  since  the  start  of  the  assembly  and  reduction 
or  inversion  is  calculated  and  printed  out. 

(b)  If  the  inverse  is  requested ,  the  matrix  Is  checked  for 
singularity  and  a  message  is  printed  and  control  returned 
if  a  matrix  is  singular. 

(c)  Appropriate  labels  are  printed  based  on  the  value  of 
KODE. 

(d)  The  matrix  is  printed  out  as  a  symmetric  matrix  by  rows 
(except  load  column).  The  grid  point  number  and  degree 
of  freedom,  based  on  the  bounds  table  input  for  the 
problem,  are  also  printed  for  each  row. 

(e)  If  the  element  applied  load  column  was  requested,  it 
is  printed  in  Engineering  Format. 

(f)  Error  checks  are  made  for  the  stiffness  maurix.  A 
non-positive  diagonal  element  in  the  stiffness  matrix 
causes  a  message  to  be  printed  out  and  the  variable 
ICOUNT  (initially  0),  to  be  incremented  by  +1.  A 
positive  value  for  ICOUNT  io  returned  as  an  error 
return. 


Input  Arguments: 


W 

NSYS 

NREF 

AX 

FCOL 


Array  of  working  storage 

Number  of  system  degrees  of  freedom 

Number  of  reference  points 

Assembled  and  reduced  element  matrix  (symmetric, 
stored  In  lower  half  by  rows) 

Element  applied  load  column  (if  required) 


f 
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Input  Arguments,  Continued: 


NMDB  -  Order  of  assembled/reduced  system 

T1  -  Time  when  assembly  or  inverse  started 

ISING  -  Indicator  which  reflects  singularity  of  inverse 
of  stiffness  matrix 

LIST  -  Array  which  maps  coordinates  from  assembled 

reduced  to  unassembled/unreduced  coordinates 
NDIR  -  Number  of  directions  per  grid  point 

NDEG  -  Number  of  degrees  of  freedom  for  system 

KODE  -  Input  parameter  which  controls  which  matrix 

is  printed. 

5.  Output  Arguments: 

ICOUNT  -  Number  of  non-positive  diagonal  elements  if 
stiffness  matrix  was  printed 

6.  Error  Returns: 

ICOUNT  -  Positive  value  reflects  non-positive  diagonals 
in  stiffness  matrix 

KODE  -  Value  of  KODE  outside  interval  (1,6)  is  error 

and  causes  return 

7-  Calling  Sequence: 

Call  ASMPIC ( AK, FCOL , NMDB , T1 , ISING , ICOUNT , LIST , NDIR , NDEG , KODE , 
NREF,NSYS,W) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  9F2.^g  bytes 

12.  Subroutine  User:  KALCON 

13-  Subroutine  Required: 

RDCLOK.DISPIC 
l1! .  Remarks :  None 
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Subroutine  Name: 


DSPCIC 


Purpose:  To  control  the  calculation  of  the  displacements 

for  the  analysis  package  in  core. 

Equations  and  Procedures: 

For  Total  STATICS  Problem: 

(a)  The  total  load  column  is  formed  in  DISPL. 

DISPL  *  POOL  +  CONOPT*FCOL 


(b)  The  total  load  column  is  printed  by  calling  DISPIC. 


(c)  The  displacements  are  obtained  by  one  of  the  following 
methods  based  on  the  value  of  KALC. 


KALC 

1 

2 

3 

4 


SOLUTION 


Inverse 

Gauss  Elimination 
Cholesky  Triangularization 
Gauss  Wavefront 


For  Equation  Solve  Only: 

(a)  Compute  displacements  as  in  (c)  above. 


Input  Arguments: 

AK 

_ 

Reduced  stiffness  matrix 

FCOL 

- 

Element  applied  load  column 

POOL 

- 

External  load  columns 

CONOPT 

- 

Load  scalar  array 

NMDB 

- 

Order  of  reduced  system 

NL 

- 

Number  of  loading  conditions 

NOUT 

Scalar  used  for  printout 

NREP 

- 

Number  of  input  node  points 

REPORT 

- 

Array  used  for  time  report  printout 

SEL 

- 

Stress  matrix 

KALC 

- 

Calculation  control 

LIST 

- 

Array  which  maps  reduced  to  system 

NDIR 

- 

Number  of  directions/grid  point 

NDEG 

- 

Number  of  degrees  of  freedom 

NSYS 

- 

Total  system  unreduced  degrees  of  freedom 

WORK 

- 

Working  storage  of  length  NSYS 

NAME 

- 

Array  containing  output  matrix  name 

10 

- 

Output  matrix  logical  unit 

KR 

- 

Output  matrix  generation  indicator 

NAMSCL 

- 

Array  containing  scalars 

EQUAT 

- 

Equation  solve  only  indicator 

w 


T 


5-  Output  Arguments: 

DISPL  -  Displacement  columns 

6.  Error  Return: 

KALC  <  0  -  error  condition  appropriate  message  will  be 
print  out 

7.  Calling  Sequence: 

Cal 1  DSPCIC ( AK , FCOL, PCOL , CONOPT , DISPL , NMDB , NL, NOUT , NREF , 

REPORT ,  SEL ,  KALC  ,  LIST ,  NDIR ,  NDEG ,  NS  YS  ,.WORK  ,  NAME ,  10 , 
KR , NAMSCL , EQUAT ) 

8.  Input  Tapes:  None- 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  (CPA)1g  bytes 

12.  Subroutine  User:  ANALIC 

13.  Subroutines  Required: 

WCLOCK , SINVIC , ASMPIC , MSBB , GELS , MFSI)  ,MTDS , DISPIC 
WAVEFM , DECOMP , FWD , BACK 
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Remarks : 


None 


Subroutine  Name: 


DISPIC 


Purpose:  Print  the  following  matrices  in  Engineering 

format  based  on  the  value  of  KP 

Matrix  Printed 


Element  applied  load  column 
Total  load  column 
Displacements 

Generate  displacement  matrix  if  KR  is  unequal  to  0. 

Equations  and  Procedures: 

The  components  are  sorted  using  the  LIST  array  to  identify 
the  correct  degree  of  freedom.  They  are  printed  according 
to  the  degree  of  freedom 

U ,  V,  W, THETAX , THETAY , THETAZ 
or 

FX,FY,FZ,MX,MY,MZ 
for  each  grid  point. 

If  KR  ft  0,  the  output  displacement  matrix  is  generated. 
Input  Arguments: 

NMDB  -  Order  of  reduced  system 

DISP.L  -  Column  to  be  printed 

LIST  -  Array  which  maps  reduced  to  system  d.o.F’s 

NREF  -  Number  of  reference  points 

NDIrt  -  Number  of  directions 

NDfcG  -  Number  of  degrees  of  freedom 

NLOAD  -  Load  condition  number 

NSYS  -  Number  of  unreduced  system  degrees  of  freedom 
WORK  -  Work  storage 

NAME  -  Name  of  output  matrix  to  be  written 
10  -  Output  matrix  unit  number 

KP  -  Print  control 

KR  -  Output  matrix  generation  control 

Output  Arguments :  None 

Error  Returns :  None 

Calling  Sequence: 

Call  DISPIC(NMDB,DISPL, LIST, NREF,NDIR,NDEO, NLOAD, NSYS, 
WORK, NAME, 10, KP,KR) 
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Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  88E^g  bytes 

Subroutine  User: 

DSPCIC,  ASMPIC 
Subroutines  Required: 

EUTI.5,  EUTL6 
Remarks :  None 


Subroutine  Name:  FARCIC 

Purpose:  Generates,  prints  element  forces,  and  assembles 

forces  for  on^  load  condition. 

Equations  and  Procedures: 

Calculates  element  forces  for  each  load  condition,  potential 
energy,  work,  and  strain  energy. 

Calculations : 

Apparent  element  force:  [$IGEL]  *  S [AKEL]*[DI$PL] 

Net  element  force:  [$IGELN]  -  [$IGEL]  -  CONOPT  *  [FTEL] 


Total  work  of  element  *  energy 
Applied  loads:  WC.RKEM  «  WORKE 

where  WORKE  -  £  [DI$PL]  •  [FTEL]  *  CONOPS 


Total  work  of  gridpoint 


Applied  load: 

where 
Total  work: 


where 


ENE$M  »  -ENE$ 

ENE$  ■  £  [DI$PL]*[PCOL] 

WORKM  «  -WORK 

-  WORKE  +  ENE$ 

(work  energy  +  strain  energy) 
WORKE  ■  £  [DI$PL]  *  [ FTEL 3  «  CONOPS 


and  ENE$  is  defined  above. 

Total  strain  energy:  ITREN  -  £  .5  *  [DI$?L]»[$IGEL] 

Net  Energy:  ENERGY  »  $TREN  -  WORK 

where  $TREN  and  WORK  are  defined  above. 

[AKEL]  «  element  stiffness  matrix 
[DI$PL]  ■  displacements 
[FTEL]  “  element  applied  load 

CONOPS  *  1.0  unless  a  different  value  is  inputted 
[POOL]  ■  grid  point  loads 
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Equations  and  Procedures,  Continued: 
[AP]  -  CAP]  +  [SIQELN] 


If  KR  matrix  was  input,  the  contribution  [KR][DISPL]  must 
be  added  into  the  assembled  force  calculations.  This  contribution 
is  not  added  into  the  element  force  calculations. 

Input  Arguments: 

NMDB  -  Order  of  assembled  and  reduced  system 

LOAD  -  Load  condition 

POOL  -  External  load  columns 

DISPL  -  Displacement  columns 

CONOPS  -  Load  scalar'  array 

LIST  -  Array  which  defines  boundary  conditions  for 

assembled  system 

K4  -  Input  tape  which  contains  element  matrices 

IASM  -  Control  which  indicates  if  assembly  is  to  be  done 

NREP  -  Number  of  reference  points 

NDIR  -  Number  of  directions 

NDEQ  -  Number  of  degrees  of  freedom 

NAMIN  -  Array  containing  input  matrix  names 

IERROR  -  Error  flag 

NAM3  -  Output  force  matrix  indicator 

NSYS  -  Total  system  degrees  of  freedom 

NMDBO  -  Kumber  of  bounded  out  points 

AK  -  Reduced  stiffness  matrix 

TRAN  -  Trasnformation  matrix  needed  if  KR  matrix 

is  present 

W  -  Working  storage 

NAMSCL  -  Array  containing,  input  scalars 

IW  -  Working  storage 

INSPEC  -  Array  containing  input  matrix  logical  units 
Output  Arguments: 

SIQEL  -  Apparent  element  forces 

SIQELN  -  Net  element  forces 

AKEL  -  Element  stiffness  matrix 

NODE  -  Element  node  point  numbers 

FIEL  -  Element  applied  load  columns 

LISTEL  -  Array  which  maps  clement  nodes  to  system  nodes 

AP  -  Array  which  contains  assembled  element  forces 

N03  -  Total  length  of  assembled  force  column 

Error  Return: 

IERROR  -  Non~zerc  if  an  error  was  detected  In  FARCIC 


7. 


Calling  Sequence: 


Call  PARCIC ( NMDB, LOAD, PCOL.DISPL, CCNOPS , SIGEL , SIGELN , AKEL , 
NODE, FTEL .LIST, LISTEL , IASM, AF , NREF , NDIR , NDEG , K4 , 
NAMIN ,'  IERROR ,  N03 ,  NAH3 ,  NSYS ,  NMDBO A  K ,  TRAN ,  W ,  NAMSCL , 
IW, INSPEC) 


8 .  Input  Tapes : 

INSPEC  (1,3) 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  l^FS^g  bytes 

12.  Subroutine  User: 


KALCON 


13.  Subroutines  Required: 
UNITNM , INPTI1 , EUTL3 , EUTL9 

14.  Remarks:  None 


Subroutine  Name: 


RECTIC 


2. 


3. 


4. 


5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 


Purpose:  Compute  and  print  reactions  for  every  grid 
point  for  one  load  condition.  For  non-bounded  points, 
the  values  supply  an  "inverse"  check. 


Equations  and  Procedures: 

Reactions  *  .  sembly  of  element  forces  -  load  column  procedure 

(a)  The  load  column  for  the  load  condition  is  read  into 
POOL  and  subtracted  from  R,  the  assembled  forces. 

(b)  Reactions  are  printed  for  the  load  condition. 


Input  Arguments: 


NDIR 

NDEG 

LOAD 

NMDB 

NREF 

POOL 

LIST 

R 

104 

NSYS 


Number  of  directions 
Number  of  degrees  of  freedom  in  system 
Number  of  the  loading  conditions 
Order  of  assembled  and  reduced  system 
Number  of  reference  points  in  system 
External  load  columns 

Array  which  defines  boundary  condition,  for 
assembled  system 
Assembled  element  force  matrix 
Output  reaction  matrix  logical  unit 
Number  of  system  degrees  of  freedom 


Output  Arguments:  None 

Error  Returns :  None 


Calling  Sequence: 

Call  RECTIC ( NDIR , NDEG , LOAD , NMDB , NREF, PCOL, LIST, R , 104 , NSYS ) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  None 

Subroutine  User:  KALCON 


13.  Subroutines  Required:  None 

.14.  Remarks:  None 
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1.  Subroutine  Name:  STkSIC 

2.  Purpose:  Controls  the  calculation  and  printing  of 

element  stresses. 

3.  Equations  and  Procedures: 

(a)  The  element  matrices  a.  e  read  from  input  tape  IN. 

(b)  For  each  element  and  each  load  condition,  the  element 
stresses  are  calculated  and  printed  by  subroutines 
STRCIC  and  STRPIC,  respectively. 

4.  Input  Arguments: 

NAMI  -  Name  of  output  matrix  stress  matrix 

NMDBO  -  Number  of  bounded  out  points 

DISPL  -  Calculated  displacements 

LOAD  -  Load  condition  under  consideration 

NMDB  -  Order  of  assembled  and  reduced  system 

CONOPT  -  Array  containing  load  scalars 

IN  -  Unit  number  of  input  tape  which  contains  element 

matrices 

5.  Output  Arguments: 

SIGEL  -  Array  containing  apparent  element  stresses 

SIGELN  -  Array  containing  net  element  stresses 

LISTED  -  Array  which  maps  element  nodes  to  system  nodes 

SEL  -  Element  stress  matrix 

NODE  -  Array  containing  node  points  of  an  element 

SZALEL  -  Element  thermal  stress  matrix 

KRSEL  -  Length  of  column  record  of  output  stress  matrices 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  STRSIC (NMDB, DISPL , CONOPT, SIGEL, SIGELN , LISTEL, SEL , NODE, 
SZALEL, NAMI , IN , LOAD , KRSEL, NMDBO ) 

8.  Input  Tapes: 

IN  ~  Contains  element  matrices 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
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Subroutine  Name: 


STRCIC 


Purpose:  To  calculate  element  stress  resultants. 

Equations  and  Procedures: 

Calculates  the  stress  array  $IGEL  and  the  corrected  stress 
array  STRESN  for  one  load  condition. 

[SIGEL]  -  £  [SEL]*[DISPL] 


(STRESN]  -  [SIGEL]  -  CONOPT  *  [SZALEL] 

where  CONOPT  *  1.0  unless  a  different  value  is  inputted. 

Input  Arguments: 

IEL  -  Input  element  number 

I PL  -  Plug  number 

NMDB  -  Number  of  reduced  degrees  of  freedom 

NLOAD  -  Number  of  load  conditions  printed  *  1 

NRSEL  -  Number  of  rows  in  element  stress  matrix 

NORD  -  Number  of  element  degrees  of  freedom 

NNO  -  Number  of  element  node  points 

NAME  -  Name  of  output  stress  matrix 
CONOPT  -  Element  load  scalar 

LISTEL  -  Array  which  maps  system  degrees  of  freedom 
to  element  degrees  of  freedom 
NODES  -  Array  containing  element  node  point  numbers 
SEL  -  Element  stress  matrix 

SZALEL  -  Thermal  stress  matrix 

DISPL  -  Displacement  matrix 

IERROR  -  Error  return 

NLL  -  Load  condition  number 

NMDBO  -  Number  of  bounded  out  points 

Output  Arguments: 

SIGEL  -  Array  containing  apparent  element  stresses 
STRESN  -  Array  containing  r.et  element  stresses 

Error  Returns :  None 

Calling  Sequence: 

Call  STRCIC(IEL,IPL,NMDB, NLOAD, NRSEL, NORD, NNO, NAME, CONOPT, 
LISTEL , NODES , SEL , SZALEL , STRESN , DISPL , IERROR , NLL , 
NMDBO) 


8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

510l6  byfces 

12.  Subroutine  User:  STRSIC 

13.  Subroutines  Required:  None 

lH.  Remarks:  None 


Subroutine  Name: 


STRPIC 


2. 

3. 


JJ. 


5. 

6. 
7- 

8. 

9. 

10. 

11. 


12. 

13- 


Purpose:  Prints  out  element  stresses  which  were 

calculated  in  STRCIC. 

Equations  and  Procedures: 


Locates  the  stresses  that  are  to  be  printed  out  and  prints 

them  with  respect  to  their ^stress  component  designations; 

i. e. ,  6  i  6  .o  .o  ,  b  .8 
*  vv*  yy*  zz*  xy*  yz* 


xx'  ~yy'  zz*  xy'  'yz'  "zx 
Element  number  and  node  points  are  also  printed 


Input  Arguments: 

IFMT  -  Format  control  indicator 

EZERO  -  Suppression  print  option  value 

NRSEL  -  Number  of  rows  in  the  element  stress  matrix 

KFMT  -  Format  control  indicator 

NSC  -  Format  control  indicator 

STRESS  -  Stress  matrix  to  be  printed 

Output  Arguments:  None 

Error  Returns :  None 

Calling  Sequence: 

Call  STRPIC ( IFMT , EZERO , NRSEL, KFMT , NSC , STRESS ) 

Input  Tapes:  None 

Output  Tapes :  None 

Scratch  Tapes:-  None 
Storage  Required: 

8D0^g  bytes 

Subroutine  User:  STRSIC 

Subroutines  Required:  None 


Remarks : 


None 


Subroutine  Name: 


GELS 


Purpose:  To  solve  a  system  of  simultaneous  linear 

equations  with  symmetric  coefficient  matrix  upper 
triangular  part  of  which  is  assumed  to  be  stored  column¬ 
wise. 

Equations  and  Procedures: 

Solution  obtained  by  Qauss  Elimination  with  pivoting  in 
main  diagonal.  (See  writeup  in  IBM  Scientific  Subroutine 
Package. ) 

Input  Arguments: 

R  -  MXN  right  hand  side 'matrix  (destroyed) 

A  -  Upper  triangular  part  of  symmetric  MXM  matrix 

M  -  Number  of  equations  in  the  system 

N  -  Number  of  right  hand  side  vectors 

EPS  -  Relative  tolerance  used  to  test  loss  of 

significance 

AUX  -  Auxiliary  storage  array 

Output  Arguments: 

IER  -  Error  return 

R  -  Solution  of  equations 

Error  Returns: 

IER  «  0  No  error 

IER  »  -1  No  result  because  of  zero  pivot  element 

IER  ■  K  Warning  -  possible  loss  of  significance  at  step  K 

Calling  Sequence: 

Call  GELS(R,A,M,N,EPS,IER,AUX) 

Input  Tapes :  None 

Output  Tapes :  None 

Scratch  Tapes:  None 

Storage  Required:  (8C6)1g  bytes 

Subroutine  User:  DSPCIC 

Subroutine  Required:  None 

Remarks :  None 


8.128 


Subroutine  Name: 


MPSD 


Purpose:  Factor  a  given  symmetric  positive  definite 

matrix. 

Equations  and  Procedures: 

Solution  obtained  by  Cholesky  square  root  method.  The 
given  matrix  is  represented  as  the  product  of  two  triangular 
matrices,  where  the  left  hand  factor  is  the  transpose  of 
the  returned  right  hand  factor.  (See  IBM  Scientific 
Subroutine  Package  Writeup.) 

Input  Arguments: 

A  -  Upper  triangular  part  of  given  symmetric 

matrix  NxN 

N  -  Number  of  columns  (rows)  in  given  matrix 

EPS  -  Relative  tolerance  for  test  of  loss  of 

significance 

Output  Arguments: 

IER  -  Error  return 

A  -  Resultant  upper  triangular  matrix 

Error  Returns: 

IER  »  0  No  error 

IER  ■  -1  No  result  because  some  radicand  is  non-positive 
IER  »  KK  Warning  indicating  loss  of  significance 

Calling  Sequence: 

Call  MFSD ( A , N , EPS , IER ) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  (3FC)^g  bytes 

Subroutine  User:  DSPCIC 

Subroutine  Required:  None 

Remarks:  The  routine  forms  the  first  part  of  the  LU 

decomposition  solution  of  simultaneous  equations. 


8.125 


Subroutine  Name:  MTDS 

Purpose:  Multiply  a  general  matrix  A  on  the  left  or  right 

by  (t  inverse)  ((T  transpose)  inverse)  or  (inverse  (transpose 
(T#T) ) .  The  triangular  matrix  T  is  stored  in  the  upper 
half  by  columns. 

Equations  and  Procedures: 

See  IBM  Scientific  Subroutine  Package  writeup. 

Input  Arguments: 

A  -  Given  matrix  (MxN) 

M  -  Number  of  rows  in  A 

N  -  Number  of  columns  in  A 

T  -  Given  triangular  matrix  stored  in  upper  half 

by  columns 

IOP  -  Variable  which  controls  operation  to  be 

performed  by  routine  (see  IBM  writeup) 

Output  Arguments: 

IER  -  Error  code 

Error  Returns: 

IER  *  -1  Invalid  input  value  for  IOP  or  M  and  N 

IER  -  0  Successful  operation 

IER  *  1  Triangular  matrix  is  singular 

Calling  Sequence: 

Call  MTDS(A,M,N,T,IOP,IER) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  P.equired:  ( 63 2 ) bytes 

Subroutine  User:  DSPCIC 

Subroutines  Required:  None 

Remarks:  Use  MPSD  first  and  IOP  *  3  to  do  LU  decomposition. 


8.130 


1.  Subroutine  Name:  SINVIC 

2.  Purpose:  ,  Inversion  of  a  bottom-half  symmetric  matrix. 

3.  Equations  and  Procedures: 

The  Inversion  is  performed  by  the  method  of  partitioning. 
Input  Arguments: 

10  -  Order  of  symmetric  matrix  to  be  inverted 

A  -  Symmetric  matrix  stored  in  column  form 

COL  -  Work  array  to  store  a  column  of  A 

5.  Output  Arguments: 

ISING  -  Error  Messages 

A  -  Inverted  matrix 

T1  -  Time  when  inversion  process  started 

6.  Error  Returns: 

ISING  *  0  No  error 

ISING  *  1  Singular  matrix 

ISING  *  2  Negative  main  diagonals 

7.  Calling  Sequence: 

Call  SINVIC (10, A, ISING, COL, Tl) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

lu.  Scratch  Tapes:  None 

11.  Storage  Required:  ^E81g  bytes 

12.  Subroutine  User:  DSPCIC 

13.  Subroutines  Required:  None 

l1!.  Remarks:  None 
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1.  Subroutine  Name:  MSBB 

2.  Purpose:  To  evaluate  the  matrix  product  of  a  symmetric 

bottom  half  matrix  and  a  rectangular  matrix  and  store  result 
back  in  rectangular  matrix. 

3.  Equations  and  Procedures: 


AN  »  E  *  B 
nm  “  ne  em 


B  *  AN 
nm  nm 


4.  Input  Arguments: 

S  -  Elements  of  [Sj  matrix  (symmetric) 

B  -  Elements  of  [B]  matrix 

N  -  Number  of  rows  in  the  [S],  [B]  and  [AN] 

matrices  (order) 

M  -  Number  of  columns  in  the  [B]  and  [AN] 

matrices  (order) 

N1  -  Dimension  of  the  [B]  matrix 

AN  -  Auxiliary  storage  column  of  length  N 

5.  Output  Arguments: 

B  -  Matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  MSBB(S,B,AN,N,M1,N1) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  <326 ) bytes 

12.  Subroutine  User:  DSPCIC 

13.  Subroutines  Required:  None 

14.  Remarks:  Performs  same  function  as  routine  MSB,  but 

stores  product  back  into  the  rectangular  array  B. 
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Subroutine  Name:  WCLOCK 

Purpose:  Generates  the  specific  item  being  computed 

and  the  time. 

Equations  and  Procedures: 

NOUT  •  NOUT  +  1 
REPORT (1,N0UT)  -  ITEM 
REPORT ( 2 , NOUT )  -  RDCLOK(T) 

Input  Arguments: 

NOUT  -  Cumulative  number  of  items  being  performed 
REPORT  -  Array  containing  time  summary  information 
ITEM  -  Number  of  calculations  being  performed 

Output  Arguments:  None 

Error  Returns :  None 

Calling  Sequence: 

Call  WCLOCK (NOUT, REPORT, ITEM) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  bytea 

Subroutine  User:  KALCON 

Subroutines  Required:  RDCLOK 

None 


Remarks : 


Subroutine  Name:  RDCLOK  (Function) 

Purpose:  To  convert  CPU  and  I/O  time  from  milliseconds 

to  minutes. 

Equations  and  Procedures: 

Call  Gettim  (IX) 

(Total  chargeable  time  *  CPU  TIME  +  I/O  time)^^^^^^,, 
RDCLOK  «  TOTAL  CHARGEABLE  TIME/60000 
Input  Arguments: 

T  -  Not  used 

Output  Arguments: 

RDCLOK  -  Total  chargeable  time  in  minutes 

Error  Returns :  None 

Calling  Sequence: 

Call  Y  «  RDCLOK(T) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes;  None 

Storage  Required:  188-^g  bytes 

Subrutine  User:  WCLOCK 

Subroutines  Required:  GETTIM 

Remarks:  GETTIM  is  a  locally  written  IBM/360  timer  function. 


Subroutine  Name:  TIMER 

Purpose:  Prints  a  time  summary  of  the  completed  analysis 

Equations  and  Procedures: 

The  routine  scans  over  the  NOUT  entries  in  the  report  array 
treating  each  one  consecutively.  It  looks  at  the  two 
variables  for  each  entry,  the  first  giving  the  calculation 
code  and  the  second  the  starting  time.  It  then  prints  a 
summary  cf  the  items,  their  starting,  ending  and  execution 
times. 

Input  Arguments: 

NOUT  -  Number  of  codes 

REPORT  -  Array  containing  codes  and  starting  times 
Output  Arguments:  None 

Error  REturns :  None 

Calling  Sequence: 

Call  TIMER (NOUT, REPORT) 

Input  Tapes :  None 

Output  Tapes:  NPOT 

Scratch  Tapes:  None 
Storage  Required:  None 

Subroutine  User:  ANALIC 

Subroutines  Required:  None 


Remarks : 


None 


1. 


Subroutine  Name: 


WAVEFM 


2.  Purpose:  To  generate  the  pointers  and  change  the  form 

of  the  stiffness  matrix  for  the  wavefront  solution  for 
displacements. 


3»  Equations  and  Procedures: 

The  three  pointers  which  correspond  to  IR,  IC  and  IA  are 
stored  in  one  word  in  the  array  IP.  IR  is  the  row  number 
in  the  stiffness  matrix.  IC  is  the  column  which  contains 
the  first  non-zero  element  in  row  IR.  IA  is  the  number  of 
diagonal  elements  in  row  IR,  in  the  IP  array.  All  leading 
zero  elements  in  each  row  of  the  stiffness  matrix  are 
eliminated.  The  maximum  order  of  the  system  to  be  solved 
is  255>  with  no  more  than  32767  non  (leading)  zero  elements. 
This  limit  is  set  by  the  word  length  of  the  36C. 


FORMAT  OF  IP 


IR 

8  bits 


IC  IA 

8  bits  15  bits 


3130  22  14  0 


4.  Input  Argum3nts: 

AK  -  Reduced  assembled  stiffness  matrix 

NMDB  -  Order  of  AK 

5.  Output  Arguments: 

KK  -  Number  of  elements  in  the  modified  AK  matrix 

(leading  zeros  eliminated) 

IP  -  Array  containing  pointers 


5. 

Error  Returns: 

None 

7. 

Calling  Sequence: 

Call  WAVEFM ( A K, 

KK, NMDB, IP) 

8. 

Input  Tapes: 

None 

9- 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

8.136 


f 

S 


11.  Storage  Required:  (33^)^g  bytes 

12.  Subroutine  User:  DSPCIC 

13.  Subroutines  Required:  None 

1^ .  Remarks :  None 


8.137 


1. 


Subroutine  Name: 


DECOMP 


2,  Purpose:  Decompose  a  symmetric  matrix  for  the  Wavefront 

Solution  for  displacements. 

3.  Equations  and  Procedures: 

Given: 


(i  <  J) 


Input  Arguments: 

KK  -  Number  of  elements  in  symmetric  matrix 

N  -  Order  of  matrix  A 

ERR  -  Not  used 

A  -  Symmetric  matrix  stored  by  rows  with  leading 

zero  elements  eliminated 
A  -  Auxiliary  storage 

IP  -  Array  containing  pointers 


8.130 


i 


Purpose:  To  do  the  forward  decomposition  step  for  the 

Wavefront  Qauss  solution. 


Equations  and  Procedures: 

Perform  forward  substitution  to  determine  Y  in 


LnY  «  Px  -  K12U2 


Input  Arguments: 

KK  -  Number  of  elements  in  symmetric  matrix  A 

N  -  Order  of  matrix  A 

ERR  -  Not  used 

A  -  Symmetric  matrix  stored  by  rows  with  leading 

zero  elements  eliminated 
DSP  -  Load  column 

IP  -  Array  of  pointers 

Output  Arguments:  None 

Error  Returns ;  None 

Calling  Sequence: 

Call  FWD(KK,N,ERR,A,DSP,IP) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  (SFE)^  bytes 

Subroutine  User:  DSPCIC 

Subroutines  Required:  None 

Remarks :  None 


BACK 


1.  Subroutine  Name: 

2.  Purpose:  To  do  the  backward  substitution  step  in  the 

Wavefront  Gauss  solution  for  displacements. 

3.  Equations  and  Procedures: 

F'  -•form  backward  substitution  to  determine  U1  from 

Y  ■  D"1L^?1U1 

4.  Input  Arguments: 

KK  -  Number  of  elements  in  symmetric  matrix  A 

N  -  Order  of  matrix  A 

ERR  -  Not  used 

DSP  -  Load  column 

A  -  Stiffness  matrix 

IP  «  Array  of  pointers 

5.  Output  Arguments: 

X  <-  Displacements 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  BACK(KK,N,ERR,DSP,A,X,IP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  (550)^g  bytes 

12.  Subroutine  User:  DSPCIC 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


8.141 


1. 


Subroutine  Name :  US04 


2.  Purpose:  Control  operation  of  the  structural  generative 
system  (USER04  module) 

3.  Equations  and  Procedures:  The  error  indicator,  ERROR,  is 
initially  set  to  .FALSE..  Subroutine  US04A  is  then  called 
to  control  the  input  operations.  Subroutine  US04B  is  called 
to  control  the  element  matrix  generation  and  output  phases. 

If  an  error  has  occurred  in  the  input  phase  then  the  call 

to  US04B  is  skipped.  All  information  received  from  the 
Format  Monitor  is  relayed  to  US04A  and  US04B. 

4.  Input  Arguments: 

NUMOT:  Number  of  output  matrices 

NAMOUT:  Array  containing  output  matrix  names 

IOSPEC:  Unit  specifications  for  output  matrices 

NUMINJ  Number  of  input  matrices 

NAMIN*  Array  containing  input  matrix  names 

INSPEC:  Unit  specifications  for  input  matrices 

NUMSR:  Number  of  available  scratch  units 

ISSPEC:  Scratch  unit  specifications 

NUMSC;  Number  of  scalars 

SCALAR:  Array  containing  scalars 

NWORKR*  Number  of  available  storages  in  blank  common  work 
area 

WORK:  Work  storage  area 

IPRINT:  System  print  control 

5 .  Output  Argument : 

ERROR:  Error  condition  indicator 

6.  Error  Returns:  If  error  has  occurred  in  US04A  or  US04B 
then  ERROR  will  be  .TRUE,  upon  return  to  the  calling  program. 

7.  Calling  Sequence: 

CALL  US04  (NUMOT,  NAMOUT,  IOSPEC,  NUMIN,  NAMIN,  INSPEC, 

NUMSR,  ISSPEC,  NUMSC,  SCALAR,  ERROR,  NWORKR,  WORK,  IPRINT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  520^  Bytes. 

12.  Subroutine  User:  SEXEQ 


8 . 142 


13*  Subroutines  Required: 

US04A 

US04B 

14.  Remarks:  None 


8.143 
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1.  Subroutine  Name:  NTEST 

2.  Purpose:  To  determine  if  output  matrix  is  to  be  generated 

by  US04 

3.  Equations  and  Procedures:  The  first  position  in  the  output 
name  is  compared  to  a  slash  (/).  If  this  first  character  is 

a  slash  then  the  matrix  is  not  to  be  calculated.  If  the  first 
character  is  not  a  slash  then  the  matrix  will  be  calculated 
and  output. 

4.  Input  Arguments:  NAME  -  array  containing  output  matrix  name 

5.  Output  Arguments:  K0DE  -  control  code 

if  K0DE  equals  zero  then  matrix  is 

calculated 

if  K0DE  equals  one  then  matrix  is 
not  calculated 

C,  Error  Returns:  None 

7.  Calling  Sequence:  Call  NTEST  (NAME,  K0DE) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  15625  Bytes. 

12.  Subroutine  User:  US04a,  US04B 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


8.144 
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1 .  Subroutine  Name :  REC1 


2 .  Purpose i  Write  or  read  element  input  tape  record 

3.  Equations  and  Procedures:  The  decision  to  write  or  read  the 
tape  record  is  determined  by  examing  the  input  variable 
I0PT  in  the  following  manner: 


(1)  If  IOPT  £  2  then  the  tape  record  will  be  written 

(2)  If  IOPT  £  1  then  the  tape  record  will  be  read 

4.  Input  Arguments:  (when  IOPT ^.2) 


IOPT 

K 

Nil 

IPL 

X 

Y 

Z 

T 

P 

NLIST 

LISTEL 

NNO 

NODES 

IP 

DISPEL 

PCOLEL 

LISTDL 

IG 

NEL 

GPAXEL 

NUMMAT 

MAT 

NUMEPS 

EPS  10 

NUMSO 

SO 

EXTRA 


Read/write  indicator 
Involved  unit  number 

Number  of  words  in  tape  record,  excluding  Nil 
Element  type  number  (plug  number) 

"  XM  coordinates  of  element  definition  points 
"  Yn  coordinates  of  element  definition  points 
"  ZM  coordinates  of  element  definition  points 
Temperatures  at  element  definition  points 
Pressures  at  element  definition  points 
Total  degrees  of  freedom  in  element 
Boundary  condition  information  list 
Number  of  element  defining  points 
Grid  point  numbers  of  element  defining  points 
Extra  element  input  and  matrix  repeat  indicator 
Input  displacements  for  element  degrees  of  freedom 
External  loads  for  element  degrees  of  freedom 
Not  used 

Maximum  number  of  element  defining  points 
Element  number 

Grid  point  ax  s  transformation  matrices  for  element 
defining  points 
Length  of  MAT  array 

Array  containing  interpolated  material  properties 

Length  of  EPSIO  array 

Pre-strain  load  vector 

Length  of  SO  array 

Pre-stress  load  vector 

Extra  element  input 


5.  Output  Arguments:  (when  IOPT  ^1) 


With  the  exception  of  IOPT  and  K,  which  are  always  input 
arguments,  all  of  the  above  input  arguments  are  output 
arguments  when  IOPT  1 . 


6.  Error  Returns:  None 
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7.  Calling  Sequence:  (IOPT,  K ,  Nil,  IPL,  X,  Y,  Z,  T,  P, 
NLIST,  LISTEl,  NNO,  NODES,  IP,  DISPEL,  PCOLEL,  LISTDL, 

IG,  NEL,  GPAXEL,  NUMMAT,  MAT,  NUMEPS >  EPSIO,  NUMSO,  SO, 
EXTRA) 

8.  Input  Tapes:  When  IOPT  <1  the  input  tape  number  is  the 
variable  K . 

9 .  Output  tapes :  When  IOPT  2  the  output  tape  number  is  the 
variable  K . 

10 .  Scratch  Tapes :  None 

11.  Storage  Required:  Total  storage  required  is  Cl^g  Bytes. 

12.  Subroutine  User:  ELEM,  ELPLUG 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  LOGFLO 

2.  Purpose:  Set  logical  execution  controls  for  USER04 
module 


3.  Equations  and  Procedures:  AFHASE,  BPHASE  and  ERROR  are 
initially  set  to  .FALSE.  All  positions  in  MASTER  are  set 
to  zero.  If  any  of  the  first  five  output  matrix  positions 
are  non-blank  then  AEHASE  is  set  to  .TRUE.  If  any  of  the 
last  seven  output  matrix  positions  is  non-blank  then  BHtfASE 
is  set  to  .TRUE.  MASTER  is  then  filled  by  packing  in  the 
output  matrix  position  number  the  requires  that  input 
section.  At  present  there  are  six  possible  required  input 
sections  indicated  in  MASTER: 


MASTER  (1)  -  System  control  input  indicator 

MASTER  (2)  -  Grid  point  coordinates  input 

indicator 

-  Boundary  condition  input  indicator 

-  Element  definition  input  indicator 

-  Grid  point  loads  input  indicator 

-  Material  library  input  indicator 

4.  Input  Arguments: 


MASTER  (3) 
MASTER  (4) 
MASTER  (5) 
MASTER  (6) 


NUMOT  :  Number  of  output  matrices 
NAMOUT  :  Array  containing  output  matrix  names 
NUMIN  :  Number  of  input  matrices 
NAMIN  :  Array  containing  input  matrix  names 
APHASE  :  Logical  variable  indicating  necessity  to 
execute  subroutine  US04A 

BPHASE  :  Logical  variable  indicating  necessity  to 
execute  subroutine  US04B 
NUMAST  :  Length  of  MASTER 

MASTER  :  Array  indicating  required  input  sections 


5,  Output  Arguments: 

ERROR  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  If  output  matrix  position  eleven  is  non¬ 
blank  and  input  matrix  position  four  is  blank,  then  ERROR 
is  set  to  .TRUE. 


7.  Calling  Sequence: 

( NUMOT,  NAMOUT,  NUMIN,  NAMIN,  AFHASE,  BPHASE,  NUMAST, 
'MASTER,  ERROR) 

8,  Input  Tapes:  None 
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9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  7861g  Bytes. 

12.  Subroutine  User:  USC4 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


8.148 
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1.  Subroutine  Name:  US04A 

2.  Purpose:  Control  input  phase  operations  of  structural  system 
(USER04  module) 

3.  Equations  and  Procedures:  Input,  output  and  scratch  units  supplied 
by  the  Format  Monitor  are  assigned  to  their  respective  functions. 
Subroutine  CONTRL  is  called  to  copy  the  entire  structural  data 
input  onto  a  scratch  tape,  extracting  structural  system  information 
in  the  process.  From  this  point,  subroutine  INPUT  controls  the 
selection  of  all  other  subroutines  which  process  input  (see  INPUT). 
The  function  of  US04A  is  to  partition  the  blank  common  work  storage 
area  and  oelect  the  proper  subroutine  for  the  following  operations: 

If  material  library  requests  are  present  t>  1  subroutine  FMAT  is 
called,  if  report  form  input  processing  is  required  then  subroutine 
REFORM  is  called,  if  generation  of  the  loads  matrix  is  not  suppressed 
then  subroutine  FLOADS  is  called  and  finally  if  the  broundary 
condition  transformation  matri::  is  net  suppressed  then  FTR  is 
called. 


4 .  Input  Arguments : 

NUMOT:  Number  of  output  matrices  (12) 

NAMOIJT:  Array  containing  output  matrix  names 

IOSPEC:  Unit  specifications  for  output  matrices 

NUMI?\'  Number  of  input  matrices  (4) 

NAMIN:  Array  containing  input  matrix  names 

INSPEC:  Unit  opacifications  for  input  matrices 

NUMSR :  Number  of  available  scratch  units 

ISSPEC:  Scratch  unit  specifications 

NUMSC:  Number  of  scalars  (0) 

SCALAR  Array  containing  scalars 

NWORKR :  Number  of  available  work  storages  in  blank  common 

area  (WORK) 

WORK:  Work  storage  area 

IPRINT:  System  print  control 

EPHASF.:  uogical  control  variable  indicating  whether  or  not 

to  go  into  element  matrix  generation 
MASTER:  Array  indicating  required  input  sections 

NUMAST:  Length  of  master  array 

5.  Output  Arguments: 


ERROR: 

KNMD: 

KNUMD: 

NUMK: 


Error  condition  indicator 

Array  containing  structural  system  control  information 
Array  containing  structural  system  control  Information 
Length  of  KNUMD  array 


KNMD  (1)  -  NSYS  -  Total  number  of  degrees  of  freedom  in 

application 

KNMD  (2)  -  NL  -  Number  of  load  conditions 

KNMD  (3)  -  NMDB  -  Number  of  degrees  of  freedom  after  application 

of  boundary  conditions 

KNMD  (4)  -  NNORD-  Summation  of  element  degrees  of  freedom 

KNMD  (5)  -  NELEM-  Number  of  elements 

KNMD  (6)  -  NNRSEL-Summaticn  of  element  stress  orders 

KNMD  (7)  -  NTD  -  Number  of  degrees  of  freedom  per  point 

KNMD  (8)  *  NRSELM-Maximum  ele:.;ent  stress  order 

KNMD  (9)  -  NORDM-  Maximum  element  degrees  of  freedom 
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5.  Output  Arguments:  (Cont’d) 

KNMD(IO)  -  NOINRM-Maximum  number  of  storages  required  for  an 

element  stiffness  matrix 

KNMD(ll)  -  MAXNIl-Length  of  longest  element  record 
KNMD(12)  -  NDIR  -  Number  of  directions  per  point 
KNMD(13)  -  NDEQ  -  Number  of  typjs  of  degrees  of  freedom 
KNMP(l4)  -  NMDBO-  Number  of  zero  boundary  conditions 

6.  Error  Returns:  If  at  any  time  the  number  of  required  work 
storages  exceeds  NWORKR  or  a  generated  matrix  will  have  a  dimen¬ 
sion  greater  than  KONST  (matrix  size  limitation),  the  appropriate 
message  will  be  written,  ERROR  set  to  .TRUE,  and  control  returned 
to  the  calling  program. 

7.  Calling  Sequence: 

CALL,  US04A  (NUMOT,  IIAMOUT,  IOSPEC,  NUMIN,  NAMIN,  INSPEC, 

NUMSR,  ISS.'EC,  NUMSC,  SCALAR,  ERROR,  NWORKR,  WORK, 
IPRINT,  KNMD,  MASTER,  NUMAST,  NUMK,  BPHASE) 

8.  Input  Tapes: 

1TAPE1  -  INSPEC  (1,1)  -  Unit  containing  input  structure 

data  deck 

1TAPE2  -  INSPEC  (1,2)  -  Unit  containing  interpreted  input 

1TAPE3  -  INSPEC  (1,3)  -  Unit  containing  existing  material 

library 

1TAPE4  -  INSPEC  (1,10  -  Unit  containing  input  displacements 

9.  Output  Tapes: 

JTAPE1  -  IOSPEC  (1,1)  -  Unit  which  will  contain  copy  of  input 

structure  data  deck 

JTAPE2  -  IOSPEC  (1,2)  -  Unit  which  will  contain  revised  or  new 

material  library 

JTAPE3  -  IOSPEC  (1,3)  -  Unit  which  will  contain  interpreted  input 

JTAPE4  -  IOSPEC  (1,4)  -  Unit  which  will  contain  grid  point  loads 

matrix 

JTAPE5  -  IOSPEC  (1,5)  -  Unit  which  will  contain  boundary  condition 

application  transformation  matrix 
JTAPE6  -  IOSPEC  (1,6)  -  Unit  which  will  contain  assembly  trans¬ 

formation  matrix 

JTAPE7  -  IOSPEC  (1,7)  -  Unit  which  will  contain  element  stiffness 

matrices 

J TAPER  -  IOSPEC  (1,8)  -  Unit  which  will  contain  element  load 

matrices 

JTAPE9  -  IOSPEC  (1,9)  -  Unit  which  will  contain  element  stress 

matrices 

JTAP.10  -  IOSPEC  (1,10)  -  Unit  which  will  contain  element  thermal 

stress  matrices 

JTAP11  -  I0SPFn  (1,11)  -  Unit  which  will  contain  element  in¬ 

cremental  stiffnecs  matrices 

JTAP12  -  IOSPEC  (1,12)  -  Unit  which  will  contain  element  mass 

matrices 
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Scratch 

Tapes : 

NTAPE1 

-  ISSPEC 

(1,1)  - 

External  storage  area  for  report  form 
input  preprocessor  and  later  will  con¬ 
tain  structural  control  information 

NTAPE2 

-  ISSPEC 

(1,2)  - 

Contain  temporary  copy  of  translated 
input  data  deck  and  later  contain  gen¬ 
erated  element  matrices  in  compact  form 

NTAPE3 

-  ISSPEC 

(1,3)  - 

Contain  temporary  copy  of  actual  input 
deck  and  later  contain  interpreted 
element  input  data 

NTAPE4 

-  ISSPEC 

(1,4)  - 

External  storage  area  for  report  form 

input  preprocessor  and  later  contain 
input  load  conditions 


11.  Subroutine  User:  US04 

12.  Subroutines  Required: 

CONTRL 

INPUT 

FMAT 

REFORM 

NTEST 

FLO ADS 

FTR 


13*  Remarks:  None 


1.  Subroutine  Name:  INDECK 

2.  Purpose:  Translate  input  matrix  containing  a  data  deck 
into  a  BCD  input  deck 

3.  Equations  and  Procedures:  The  matrix  is  located  by 
utilizing  subroutine  EUTL3 .  Each  column  of  the  matrix 
contains  one  input  card  divided  into  eighty  rows.  Each 
column  is  read  in  binary  from  the  unit  specified  in 
INSPEC(l)  and  written  on  N0UT  by  an  80A1  format.  The 
number  of  columns,  as  contained  in  the  matrix  header,  is 
actually  the  number  of  cards  in  the  data  deck. 

4.  Input  Arguments: 

NAMIN  :  Array  containing  input  matrix  name 
INSPEC  :  Array  containing  unit  specification  for 
input  matrix 

NOUT  :  Logical  unit  reserved  for  output  data  deck 
CARD  :  Work  storage 

5 .  Output  Arguments : 

IER  :  Logical  variable  indicating  error  condition 

6.  Error  Returns:  For  each  column  of  the  input  matrix,  the 
compression  code  must  be  zero  and  the  number  of  words  must 
be  eighty.  If  either  condition  is  not  satisfied  then  the 
matrix  does  not  qualify  as  an  input  deck  matrix  and  IER 
will  be  set  to  .TRUE.. 

7.  Calling  Sequence: 

(NAMIN,  INSPEC,  NOUT,  CARD,  IER) 

8.  Input  Tapes: 

INSPEC (1)  .  unit  containing  input  data  deck  matrix 

9.  Output  Tapes: 

NOUT  :  unit  which  will  contain  BCD  data  deck 

10.  Scratch  Taoes:  None 

11.  Storage  Required:  Total  storage  required  is  562^  Bytes. 

12.  Subroutine  U3er:  US04A 

13.  Subroutines  Required:  EUTL3 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CONTRL 


2.  Purpose:  Generate  BCD  tape  from  system  input  tape  data 
and  read  constants  needed  by  US04  for  dynamic  storage 
and  matrix  sizes . 

3.  Procedure:  The  input  data  is  read  in  BCD  format  of  12 
words/card .  A  scanning  of  the  data  is  made  for  certain 
card  types  . 

a.  REPORT  card  -  defines  NBCD  to  be  NTAPE3 

b.  SYSTEM  card  -  defines  NBCD  to  be  NTAPE2 

c .  CHECK  card  -  end  of  file  of  NBCD 

d .  END  card  -  end  of  file  placed  on  NBCD 

e.  SYSTEM  card  -  NREF,  NREFP,  NTD,  NL,  NELEM 

are  read  to  allocate  storage 

4.  Input  Arguments:  NTAPE2  -  tape  storage  number  for  defining 

NBCD 

NTAPE3  -  tape  storage  number  for  defining 
NBCD 

NPIT  -  system  input  tape  number 

5  .  Output  Arguments : 

NBCD  :  tape  unit  number  on  which  data  is  stored 

NREP  :  number  of  reference  points  on  system 

NREFP  :  number  of  reference  points  in  grid  point  table 

NTD  :  number  of  degrees  of  freedom  per  point 

NL  :  number  of  grid  point  load  conditions 

NELEM  :  number  of  elements 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CONTRL  (NREF*.  NREFP,  NTD,  NL,  NELEM, 

NTAPE2,  NPIT,  NBCD,  NTAPE3) 

8 .  Input  Tapes :  NPIT  ~  Input  data  tape 

9 .  Output  Tapes :  NBCD  -  Output  BCD  tape 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  TDA^  Bytes. 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  COPYDK 

2.  Purpose:  Output  a  data  deck  in  matrix  form 

3.  Equations  and  Procedures:  A  matrix  header  is  written 
in  which  the  number  of  rows  is  set  to  eighty  and  the 
number  of  columns  is  set  equal  to  the  number  of  cards  in 
the  data  deck.  Each  card  of  the  data  deck  is  read  from 
NINPUT  in  80A1  format  and  then  written  on  the  unit 
specified  in  IOSPEC(I)  in  a  binary  matrix  column  record 
containing  eighty  words.  The  process  continues  until  an 
END,  CHECK  or  $END  card  is  encountered.  Finally  the 
matrix  trailer  is  written  and  control  is  returned  to  the 
calling  program. 

4.  Input  Arguments: 

NAMOUT  :  Array  containing  output  matrix  name 
IOSPEC  :  Array  containing  unit  specifications  for 
the  output  matrix 
CARD  :  Work  storage 

NINPUT  :  Unit  containing  data  deck 

JMAX  :  Number  of  cards  in  data  deck 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NAMOUT,  IOSPEC,  CARD,  NINPUT,  JMAX) 

8.  Input  Tapes: 

NINPUT  :  unit  containing  input  data  deck 

9.  Output  Tapes: 

IOSPEC(l);  unit  which  will  contain  output  data  deck  matrix 

10.  Scratch  Tapes:  None 

11.  Storage  Requiied:  Total  storage  required  is  ^C^g  Bytes. 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required: 

EUTL5 

EUTLS 

14 .  Remarks :  None 
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1.  Subroutine  Name:  INPUT 

2.  Purpose:  Process  directly  or  control  processing  of  all 
structural  input  data 

3.  Equations  and  Procedures:  The  input  variable  IN  designates 
the  Fortran  logical  unit  number  containing  a  direct  label 
card  input  deck,  If  the  input  deck  was  actually  direct  it  was 
copied  onto  IN  by  subroutine  CONTRL.  If  report  form  input  was 
used  then  the  report  form  input  preprocessor  placed  the  generated 
direct  label  card  input  deck  on  IN. 

The  logic  in  INPUT  is  to  read  a  label  card  and  branch  to  the 
appropriate  section  to  process  the  indicated  data.  The 
available  label  sections  and  the  action  taken  upon  encountering 
each  is  indicated  in  the  following  list. 

Input  Section  Action  Taken 

Label 

TITLE  Title  cards  are  read  and  printed  on  system 
output  unit  in  INPUT 

PRINT  No  used,  the  data  card  is  flushed  through 

NR/:  •  Processed  directly  in  INPUT,  data  eventually 

stored  on  scratch  tape  (NTAFE1) 

GRID  Processed  directly  in  INPUT,  data  eventually 

stored  on  scratch  tape  (NTAPE3) 

BOUND  Processed  by  direct  call  to  subr.?„tine  BOUND, 

data  stored  on  scratch  tapes  (NTftPEl  and  NTAPE3 ) 

ELEM  Processed  by  direct  call  to  subroutine  ELEM, 

data  stored  on  scratch  tape  (NTAPE3 ) 

LOADS  Processed  by  direct  call  to  subroutine  FGRLDS 
data  stored  on  scratch  tape  (NTAPEM 

END  Processed  directly  in  INPUT,  terminates  input 

processing 

TRANS  Processed  directly  in  INPUT,  data  eventually 
stored  on  scratch  tape  (NTAPS3) 

GRAXES  Processed  by  direct  call  to  subroutine  FRED,  data 
eventually  stored  on  scratch  tape  (NTAPE3) 

MATER  Processed  by  setting  input/output  variable  ITRAOE 
equal  to  number  of  requests  and  returning  to  US0’>  * 
where  ITRACE  will  be  tested  causing  subroutine 
FMAT  to  be  called;  after  the  MATER  section  is  pro¬ 
cessed  USO^JA  will  again  call  INPUT. 
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TZERO:  Processed  directly  in  INPUT, eventually  stored 

on  scratch  tape  (NTAPE3) 

CHECK:  Processed  directly  in  INPUT,  terminates  input 

processing  for  a  case  but  does  not  execute  data 

REPORT:  Processed  by  setting  input/output  variable  IN  to 

the  value  of  NTAPE2  and  returning  to  US04A  where  IN 

will  be  tested  causing  subroutine  REFORM  to  be 
called;  after  report  form  input  processing  is  com¬ 
pleted  US04A  will  again  call  INPUT. 

SYSTEM:  Processed  di.  >ctly  in  INPUT 

ELPR  Element  pressures  processed  directly  in  INPUT, 

3000  data  eventually  stored  on  scrat^n  tape  (NTAPE3) 

ELTE  Element  temperatures  processed  directly  in  INPUT, 

4000  data  eventually  stored  on  scratch  tape  (HTAPE3) 

HARM:  Processed  by  direct  call  to  subroutine  HARGEN 

TEM:  Processed  by  direct  call  to  subroutine  HARGEN 

SDC:  Processed  directly  in  INPUT,  data  eventually  used 

by  subroutine  HARGEN 

Input  Arguments: 


NTAPE1 : 
NTAPE2 : 
NTAPE3: 
NTAPE4 : 
ITAPE1 : 
JTAPE1 : 
NREFP1 : 
NSYS: 

IN: 

I PRINT: 
NPIT1: 
If RACE : 
NAMIN: 
INSPEC: 
NAMOUT: 
IOSPEC : 
NRF: 


X,Y,Z: 

T: 

F: 

TGRA : 

IZR: 

LIST: 

DISPL: 

LN'OD: 

NZEL: 


Scratch  unit  number 

Scratch  unit  number 

Scratch  unit  number 

Scratch  unit  number 

Existing  material  library  unit  number 

Revised  or  new  material  library  unit  number 

Not  used 

Total  degrees  of  freedom  in  application 
(adjustable  dimension) 

Data  deck  unit  number 
System  print  control 

Scratch  input  control  for  report  form  input 
Material  library  residence  indicator 
Existing  materiel  library  matrix  name 
Existing  material  library  unit  number 
Revised  or  new  material  library  name 
Revised  or  new  material  library  unit  number 
Number  of  total  reference  points  in  application 
(must  be  equal  to  highest  point  number) 

Storage  allocated  for  coordinate  data 

Storage  allocated  for  grid  point  temperatures 

Storage  allocated  for  grid  point  pressures 

Storage  allocated  for  grid  point  axes  transformation 

matrices 

Not  used 

Storage  allocated  for  boundary  conditions 
Storage  allocated  for  input  displacements 
Not  used 
Not  used 


8,156 


POOL:  Storage  allocated  for  grid  point  loads 

ELPRM:  Array  of  element  pressure  modal  values 

ELTPM :  Array  of  element  temperature  modal  values 

NUMIN:  Number  of  input  matrices 

NUMOT:  Number  of  output  matrices 

WORK:  Work  storage 

NWORKR:  Maximum  work  storage  available 

NIN:  Number  of  work  storages  used 

IHONT:  Array  containing  harmonic  data 


5.  Output  Arguments: 

ICALC :  Execution  indicator 

if  END  Card  read,  ICALC  is  set  to  1  and  US04A 
will  relinquish  control  to  US04B  for  matrix 
generation 

if  CHECK  card  read,  ICALC  is  set  to  zero  and 
subroutine  US04A  will  set  controls  to  return 
to  Format  Monitor  (execution  of  data  is  suppressed) 

ITRACE:  Material  request  indicator 

if  ITRACE  is  not  equal  to  zero  upon  exit  from 
INFUT  then  US04A  will  call  PMAT 

IN:  Report  form  input  preprocessor  indicator 

if  IN  is  equal  to  NTAPE2  upon  exit  from  INPUT 
then  US04A  will  call  REFORM 

ICONT:  Array  indicating  processed  input  sections 

6C  Error  Returns:  If  any  errors  are  detected  then  INPUT  will  set 

ERROR  to  .TRUE,  and  return. 


7.  Calling  Sequence; 

CALL  INPUT  (X,  Y,  Z,  T,  P,  TGRA,  IZR,  LIST,  DISPL,  LNOD,  NZEL, 
POOL,  ITRACE,  ICALC,  NTAPE1,  NTAPE2,  NTAPE3,  NTAPE4,  ITAPE1, 
JTAPE1,  NREFF1,  NSYS,  IN,  IPRINT,  NMD,  NPIT1,  ERROR,  NAMIN, 
INSPEC,  NAMOUT,  IOSPEC,  NRF,  NUMIN,  NUMOT,  ICONT,  ELPRM,  ELTPM, 
WORK,  NWORKR,  NIN,  IHONT) 

8.  Input  Taps: 

ITAPEI  -  Contains  existing  material  library 

JTAPE1  -  Contains  revised  or  new  material  library 

9.  Output  Tapes:  None 

10.  Scratch  Tapes 

NTAPE1  -  Temporary  storage  for  structure  control  information 
including  system  orders,  boundary  conditions  and 
system  print  operations 
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NTAPE2  -  Scratch  unit  used  when  rewriting  NTAPE3  for  grid 
point  axes  data  storage 

NTAPE3  -  Storage  for  interpreted  element  input 
NTAPE4  -  Storage  for  input  grid  point  load  conditions 

11.  Subroutine  User:  USO^A 

12.  Subroutines  Required: 

BOUND 

ELEM 

PGRLDS 

FRED 

REC1 

HARGEH 


13.  Remarks:  None 
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Subroutine  Name:  FRED 


Purpose:  To  compute  transformation  matrices  when,  input 

for  GRAXES  is  encountered . 


Equations  and  Procedures: 

ft  -  DO 


where  ( i)  u,  v,  w,  are  the  displacements  in  the  global 
x,  y,  z  system 

(2)  u‘,  v1,  w'  are  the  displacements  in  the  new 

x»,  y*,  system 


contains  the  direction  cosines 


Input  Arguments: 


X  :X  coordinates  of  plane  defined  by  3  pts. 

Y  :Y  coordinates  of  plane  defined  by  3  pts. 

Z  :Z  coordinates  of  plane  defined  by  3  pts. 

KID  :See  Remarks 

L  : Point  1  of  Plane 

M  : Point  2  of  Plane 

N  ; Point  3  of  Plane 

Output  Arguments:  TRANSC  -  transformation  matrix  [t] 

Error  Returns: 

(1)  If  points  1  and  2  have  same  coordinates,  no  plane  defined, 

(2)  If  point  3  lies  on  the  line  connecting  points  1  and  2, 
there  is  no  plane  defined. 

Calling  Sequence: 

CAM.  FRED  (X,  Y,  Z,  TRANSC,  KID,  L,  M,  N) 


Input  Tapes: 


None 


Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  X(l),  Y(l),  Z(l),  TRANSC  (3,3) 
Subroutine  User:  INPUT 


Subroutines  Required:  None 
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Remarks : 


1.  Since  3  points  define  a  plane,  KID  may  be 

(a)  0  when  the  1st  2  points  define  the  x»  axis 

(b)  1  when  the  1st  2  points  define  the  y»  axis 

(c)  2  when  the  1st  2  points  define  the  z»  axis 

The  direction  cosines  are  first  computed  for  points  1  and 
2  defining  the  x*  axis.  If  KID  is  ^  0,  then  the  direction 
cosines  are  rearranged  to  give  the  respective  notation 
described  above. 

2.  In  spits  of  error  returns  indicated,  analysis  does 
not  terminate. 


1.  Subroutine  Name:  BOUND 

2.  Purpose:  Head  and  process  boundary  condition  data  and  input 
displacement  data 

3*  Equations  and  Procedures:  The  boundary  conditions  are  read 
for  each  point  input  and  the  data  is  stored  in  the  array 
LIST  to  be  later  written  on  scratch  tape  NTAPE1  by  sub¬ 
routine  INPUT.  Omitted  points  are  constrained  for  all 
degrees  of  freedom.  Only  unconstrained  degrees  of  freedom 
are  stored  in  LIST,  giving  LIST  a  length  equal  to  the  actual 
degrees  of  freedom  for  which  solution  will  be  obtained 
(NMDB) .  For  each  degree  of  freedom  for  which  a  solution 
is  desired,  its  appropriate  total  system  degree  of  freedom 
location,  which  is  NTD*(IN-1)+L,  where  NTD  is  the  number  of 
degrees  Cu  freedom  per  point,  IN  is  the  point  number  and  L 
is  the  subject  degree  of  freedom  for  that  point  number,  is 
.  placed  in  the  next  available  position  in  LIST.  The  same 
procedure  is  followed  for  input  displacements,  which  are 
stored  in  DISPL. 

4 .  Input  Arguments : 

IVEC  -  Not  used 

NDIR, NDEG  -  Product  equals  NTD,  number  of  degrees  of 

freedom  per  point 

NREF  -  Total  number  of  points  referenced  in  application 

NREF4  -  Number  of  points  for  which  boundary  conditions 

have  been  input 

IN  -  Input  unit  containing  boundary  condition  data 

NSYS  -  Total  number  of  degrees  of  freedom  in  application 

5.  Output  Arguments: 

NMDB  -  Number  of  degrees  of  freedom  for  which  solutions 

are  desired 

NMDB2  -  Number  of  degrees  of  freedom  for  which  dis¬ 

placements  have  been  input 

LIST  -  Array  containing  degree  of  freedom  numbers  for 

which  solutions  are  to  be  obtained  and  dis¬ 
placements  have  been  input 
DISPL  -  Array  containing  input  displacements 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  BOUND  (IVEC,  NDIR,  NDEG,  NREF,  NMDB,  NMDB2,  LIST,  DISPL, 
NREF4,  IN,  NSYS) 

8.  Input  Tape: 

IN  -  Unit  containing  boundary  condition  and  input  displacement 
data 
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9*  Output  Tapes:  None 
10.  Scratch  Tapes:  None 

11  o  Storage  Required:  Total  storage  required  Is  TFA.^  Bytes. 
32.  Subroutine  User;  INPUT 
13.  Subroutines  Required:  None 
.14.  Remarks:  None 


1.  Subroutine  Name:  ELEM 

2.  Purpose:  Process  element  input  data  (input  section  ELEM) 

3.  Equations  and  Procedures:  Processing  of  element  input 
data  begins  by  reading  the  element  definition  input  for  an 
element  and  checking  the  values  for  errors  and  inconsisten¬ 
cies.  Error  messages  for  subroutine  ELEM  are  exhibited  in 
Appendix  III.  The  information  read  is  then  printed  on  the 
system  output  unit.  If  no  errors  have  been  detected  then 
the  element  definition  input  is  merged  with  the  required 
system  input.  Specif ically,  the  following  operations  are 
perfc  med  for  each  element  to  assimilate  the  required  in¬ 
formation  for  generation  of  element  matrices: 

the  coordinates,  temperatures  and  pressures  are 
extracted  and  stored  for  each  of  the  el ement  defini¬ 
tion  node  points ; 

the  grid  point  axes  transformation  matrices  are 
initialized  as  identity  matrices  and  stored  for  each 
of  the  element  definition  node  points; 

the  interpolation  temperature  for  material  properties 
is  read  or  calculated  dependent  upon  input,  the 
material  library  is  searched  to  locate  the  requested 
material,  the  Interpolation  is  performed  and  the 
results  stored; 

the  element  generation  print  control  is  stored; 

the  boundary  conditions  for  the  degrees  of  freedom 
referenced  by  the  element  defining  node  points  are 
extracted  from  the  system  boundary  condition  list 
and  stored; 

the  input  displacements,  if  any,  for  the  degrees  of 
freedom  ref  -'enced  by  the  element  defining  node  points 
are  extracteu  from  the  system  input  displacement  list 
and  stored; 

the  pre-strains  and  pre-stresses,  if  input,  are  read 
and  stored; 

the  extra  element  input  data,  if  any,  is  read  and  stored 
and  finally,  subroutine  REC1  is  called  to  place  all 
of  the  above  interpretated  element  data  on  scratch  tape 
NTAPE3  (see  REC1) . 
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4.  Input  Arguments: 


NELEM:  Number  of  elements 

X,Y, Z:  Arrays  containing  coordinates  of  system  grid 

points 

T.  P:  Arrays  containing  temperatures  and  pressures 

respectively  for  system  grid  points 
IVEC:  Not  used 

LIST:  Array  containing  boundary  condition  informa¬ 

tion  for  system  grid  points 
NMDB2:  Number  of  entries  in  array  LIST 

NDIR,NDEG:  Product  equals  number  of  degrees  of  freedom 

per  grid  point 

IG:  Maximum  number  of  element  defining  points 

possible  for  an  eledent 

NMDB:  Number  of  system  degrees  of  freedom  for  which 

solutions  are  desired 

DISPL:  Array  containing  input  displacements 

LNCD:  Not  used 

GPAXEL:  Work  storage  reserved  for  grid  point  axes 

transformation  matrices 

NUTAPE:  Logical  variable  indicating  that  new  or 

revised  material  library  has  been  generated 
TZERO:  Base  temperature  for  application 

NUMSEQ:  Material  library  sequence  number 

XEL, YEL,  Work  storage  reserved  for  extracting  coordinates 

ZEL:  for  element  definition  node  points 

TEL, PEL:  Work  storage  reserved  for  extracting  tempera¬ 

tures  and  pressures  for  element  definition 
node  points 

LISTEL:  Work  storage  for  extracting  boundary  condi¬ 

tion  information  for  element  definition  node 
points 

NODES:  Array  containing  element  definition  node  point 

numbers 

DISPEL:  Work  storage  reserved  for  extracting  input- 

displacements  for  element  definition  node 
points 

PCOLEL:  Not  used 

MAT:  Work  storage  reserved  for  interpolated  material 

properties,  element  print  control,  mass  density 
and  TZERO 

EPSIO:  Work  storage  reserved  for  pre- strain  load 

vector 

SO:  Work  storage  reserved  for  pre- stress  load 

vector 

EXTRA:  Work  storage  area  reserved  for  extra  element 

input 

IN:  Element  data  input  unit  number 

NREFP:  Number  of  input  system  grid  points 

ITAPE1:  Existing  material  library  unit  number 

JTAPE:  Not  used 


i 
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JTAPE1:  New  or  revised  material  library  unit  number 

NTAPE3:  Scratch  unit  number 

NAMIN:  Name  of  existing  material  library 

INSPEC:  Same  as  ITAPE1 

NAMOUT:  Name  of  new  or  revised  material  library 

IOSPEC:  Same  as  JTAPE1 

5*  Output  Arguments: 

Jt^LAG:  Error  indicator 

NNORD:  Summation  of  element  degrees  of  freedom 

NNRSEL:  Summation  of  element  stress  orders 

NORDM:  Maximum  element  degrees  of  freedom  for  this 

application 

NOINKM:  '  Maximum  number  of  storages  for  element  stiff¬ 

ness  matrix  for  this  application 
NRSELM:  Maximum  element  stress  order  for  this  application 

6.  Error  Returns:  If  an  error  is  encountered  then  I FLAG  is 
set  to  minus  one  and  control  is  returned  to  the  calling 
program. 

7.  Calling  Sequence: 

CALL  ELEM  (NELEM,  X,  Y,  Z,  T,  P,  IVEC,  LIST,  NMDB2,  NDIR, 
NDEG,  IG,  NMDB,  DISPL,  LNGD,  GPAXEL,  NUTAPE,  TZERO,  I FLAG, 
NUMSEQ,  XEL,  YEL.  ZEL,  TEL,  PEL,  LISTEL,  NODES,  DISPEL, 

PCOLEL ,  MAT,  EPSIO,  SO,  EXTRA,  IN,  NREFP,  NNORD,  NNRSEL, 
NORDM,  NOINKM,  NRSELM,  ITAPE1,  JTAPE,  JTAPE1,  NTAPE3, 

NAMIN,  INSPEC,  NAMOUT,  IOSPEC) 

8.  Input  Tape: 

IN  -  Contains  element  input  data 

9.  Output  Tapes: 

NTAPE3  -  Contains  interpreted  element  input 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  ^78^  Bytes. 

12.  Subroutine  User:  INPUT 

13.  Subroutines  Required: 

MATCH 

EUTL3 

LAG 

REC1 
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l4.  Remarks:  In  calculating  the  interpolated  material  proper¬ 
ties,  if  the  requested  material  and  the  interpolation  tem¬ 
perature  of  the  present  element  being  processed  are  the  same 
as  the  previous  element  then  the  results  calculated  for  the 
previous  element  are  used  and  no  searching  or  interpolation 
is  donej  if  the  requested  material  is  in  core  but  the  inter¬ 
polation  temperature  is  different  then  just  the  searching 
is  eliminated. 
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1.  Subroutine  Name:  MATCH 


2.  Purpose:  Compare  a  material  number  and  its  interpolation 
temperature  to  the  material  number  and  interpolation  temper¬ 
ature  last  referenced  in  order  to  determine  if  a  search  of 
the  material  library  tape  and/or  interpolation  is  necessary . 

3.  Equations  and  Procedures:  The  material  number,  TAG1,  is 
compared  to  the  material  number  now  residing  in  core,  NSAVEi  . 

If  they  do  not  match,  then  they  are  tested  again  to  see  if 
they  differ  only  by  an  asterisk  in  the  first  position.  If 
they  still  do  not  match  then  control  is  returned  to  the  calling 
program  at  the  statement  following  the  CALL  MATCH  statement . 

If  a  match  was  obtained  while  testing  for  an  asterisk  then 
STAR  is  set  to  TRUE .  Once  a  match  has  been  obtained  for  the 
material  number,  the  following  procedure  is  followed: 

If  IELEM  equals  one  then  control  is  returned  to  the 
statement  number  replacing  the  first  asterisk  since 
interpolation  must  be  done  for  the  first  element . 

If  IELEM  is  not  one  then  a  check  is  made  to  see  if 
a  search  of  the  material  library  was  in  progress  to 
find  this  material  number .  If  this  is  the  case  then 
control  is  returned  to  the  calling  program  at  the 
statement  number  replacing  the  first  asterisk  since 
this  material  table  has  just  been  place  in  core 
and  interpolation  will  be  necessary .  If  a  search 
was  not  in  progress  then  TEMP  is  compared  to  SAVTEM . 

If  they  are  equal  then  interpolation  of  the  material 
table  has  already  been  calculated  and  control  is 
retui’ned  to  the  calling  program  au  the  statement 
number  replacing  the  second  asterisk .  If  TEMP 
does  not  equal  SAVTEM  then  control  returns  through 
the  first  asterisk  in  order  to  perform  the  inter¬ 
polation  . 

4 .  Input  Arguments : 


TAG1 

NSAVE1 

TEMP 

SAVTEM 

NDIFF 

IELEM 

SEARCH 


*  * 


J 


Material  number  desired 

Material  number  now  residing  in  core 

Interpolation  temperature  desired 

Last  Interpolation  temperature  processed 

Constant  used  to  determine  if  asterisk  is 

present  in  material  number 

Element  number 

Logical  variable  indicating  if  a  search  of  the 
material  library  is  in  progress 

Non-standard  returns  to  calling  program 
(See  7.  Calling  Sequence) 
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5  .  Output  Arguments : 

STAR  :  Logical  variable  indicating  presence  of  asterisk 
in  material  number . 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  MATCH  (TAG1,  NSAVE1,  TEMP,  SAVTEM, 

NDIFF,  STAR,  IELEM,  SEARCH,  *,*) 

Where  the  asterisks  are  statement  numbers,  preceded  by  a 
dollar  sign  ($),  that  MATCH  will  return  control  to  in  the 
calling  program .  Control  will  pass  to  the  statement  number 
replacing  the  first  asterisk  if  TAG1  matches  NSAVE1  but 
TEMP  does  not  match  SAVTEM  {i.e.  the  material  is  the  same 
but  the  interpolation  temperatures  differ) .  Control  will 
pass  to  the  statement  number  replacing  the  second  asterisk 
if  TAG1  matches  NSAVE1  and  TEMP  matches  SAVTEM  (i .e .  the 
material  is  the  same  as  the  last  material  referenced  and 
the  interpolation  temperatures  are  also  the  same)  .  If 
TAG1  does  not  match  NSAVE1  then  control  is  returned  to  the 
calling  program  at  the  statement  following  the  CALL  MATCH 
statement . 

8 .  Input  Tapes :  None 

9  .  Output  Tapes :  None 

10  .  Scratch  Tapes :  None 

11.  Storage  Required:  Total  Storage  required  is  2FE1g  Bytes. 

12.  Subroutine  User:  ELEM 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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X.  Subroutine  Name:  LAG 

2.  Purpose:  Linear  interpolation  routine  x^or  material  propertie 

3.  Equations  and  Procedures: 

7Apy  _  X-O)  U-l)  Y  XI),±.P(.Y{.I1,.^Y_(iIi-1)i). 

X(I)  -  X  (1-1) 

4.  Input:  P  -  temperature  at  which  material  properties  will 

be  interpolated 

K  -  number  of  pairs  of  coordinates 
X  -  X  coordinate 
Y  -  Y  coordinate 

5.  Output;  ZAPX  -  value  of  the  material  property  being 

interpolated 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  LAG  (P,  ZAPX,  K,  X,  Y) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  2F21g  Bytes. 

12.  Subroutine  User:  ELEM 

13.  Subroutines  Required:  None 

14.  Remarks:  If  there  is  only  one  X-Y  pair,  ZAPX  wilJ  be  set 

equal  to  Y. 
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Subroutine  Name:  FGRLDS 


2.  Purpose:  Read  and  print  grid  point  loads  data 

3.  Equations  and  Procedures:  System  input  is  read  from  NTAPE4 
and  includes  LIST  which  is  an  array  containing  row  numbers  of 
degrees  of  freedom  which  are  to  be  retained  in  the  reduced 
load  column.  Grid  point  loads  are  read  for  each  input  point 
and  printed.  If  grid  point  axis  transformations  are  present, 
this  transformation  is  applied.  The  assembled  PC0L  is  stored 
on  tape  NTAPE4,  followed  by  the  reduced  PC0L.  This  process 
is  repeated  for  each  load  condition. 

4.  Input  Arguments: 

NL  -.Number  of  grid  point  load  .-onditions 

TGRA  ;Grid  point  axes  transformation  matrices 

N0GPA  :Number  of  grid  point  axes  transformations 

LIST  Reduction  array 

IT  :System  input  tape  number 

NTAPE1  :Input  tape  number 

NTAPE4  ;0utput  tape  number 


5.  Output  Arguments:  PC0L  -  Loads  Column 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  FGRLDS  (NL,  TGRA,  N0GPA,  LIST,  IT,  PC0L,  NTAPE1, 
NTAPE4,  NSYS) 

8.  Input  Tapes:  NTAPE 1*.  Record  1  -  not  used 

Record  2  -  NMDB1,  NMDB,  LIST 

9.  Output  Tapes:  NTAPE4:  Record  1  -  Nl,  NMDB1,  NMDB 

Record  2  -  PCOL  (assembled) 

Record  3  -  PCOL  (reduced) 

Repeat  Record  2  and  3  lor  each 
load  condition 

10.  Scrar 'h  Te.  '  ••:  None 

11.  Storage  Required;  LIST  (NSYS) 

EL0AD  (12) 

PCOL  (NSYS) 

COL  (  3) 

ISAVE  (  3) 

TGRA  (3,  3,  NREFP) 


/ 

1 
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Subroutine  User 


INPUT 


13.  Subroutines  Required: 

14.  Remarks:  None 


None 
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Subroutine  Name: 


FMAT 


2.  Purpose: 

!a ,)  Generate  material  library  tape 
b)  Update  material  library  tape 
c)  Print  material  library  information 

3.  Equations  and  Procedures: 

Subroutine  FMAT  operates  in  three  distinct  phases. 

First,  a  test  is  made  on  NM.  If  NM  is  positive,  then 
it  assumed  that  this  is  an  update  run  and  the  original 
material  library  is  read  into  PR0PER  from  ITAPE1.  Each 
table  in  the  library  is  placed  in  PR0PER  in  a  block  of 
length  NT0T,  where  NT0T  is  computed  as  the  necessary 
storage  needed.  If  NM  is  zero,  it  is  considered  an  error 
condition  and  a  message  is  printed  and  control  Is  returned 
to  the  calling  program.  If  NM  is  negative,  then  it  is 
assumed  that  this  is  a  generation  of  a  new  material  library 
tape  and  the  section  which  reads  the  original  material 
library  tape  is  skipped. 


The  second  phase  consists  of  processing  the  requests.  The 
requests  are  controlled  by  an  input  code  read  into  location 
D.  The  legal  input  codes  are: 


(1) 

(2) 

(3) 

(*) 

(5) 

(6) 

(7) 

(8) 
(9) 

(10) 

(11) 


I  :  add  or  revise  isotropic  material 

0  :  add  or  revise  orthotropic  material  table 

PI  :  add  or  revise  plastic  isotropic  material  table 

P0  :  add  or  revise  plastic  orthotropic  material  table 

P  :  add  plastic  section  to  existing  material  table 

0UT  :  delete  material  table  with  correct  lock  code 

ALL  :  print  entire  material  library 

0EE  :  print  material  table 

0UM  :  print  summary  of  material  library 

/*/  :  print  lock  code  for  material  table 

ZAP  :  delete  material  table  regardless  of  lock  code 
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If  NM  was  negative,  then  the  only  allowable  codes  are 
1,0, PI  and  P0  and  the  requests  are  processed  and  placed 
into  the  array  PR0PER  starting  from  the  beginning  and 
ending  at  NT0L.  If  NM  was  positive,  then  the  material 
number  is  checked  against  the  materials  in  PROPER  to  see 
if  it  already  existed  in  the  original  library.  If  no 
match  is  obtained,  then  the  material  is  added  at  the  next 
open  block  in  PR0PER  and  NT0L  is  updated  accordingly. 

If  a  match  occurred,  then  the  revised  table  will  be  placed 
in  same  position  as  the  original  table.  If  the  locations 
for  the  material  is  greater  or  lesser  than  before,  the 
remaining  contents  of  PROPER,  i.e.  those  tables  after  the 
one  in  question,  are  shifted  down  or  up  respectively. 

If  the  request  is  of  the  type  that  will  alter  or  delete 
the  original  table,  then  the  lock  code  (TAG2)  must  match 
the  lock  code  of  the  original  table,  otherwise  an  error 
condition  is  encountered  and  control  returns  to  the 
calling  program.  Once  it  has  been  decided  where  the 
table  is  to  be  placed,  then  the  table  is  read  into  PR0PER 
by  material  temperature  points  and  plastic  temperature 
points.  The  material  properties  are  as  follows: 

E  -  Young's  Modulus 
^  -  Poisson's  Ratio 

**  -  Coefficients  of  Thermal  Expansion 
G  -  Rigidity  Modulus 

For  an  input  code  of  I  or  PI  only  E,  'O  ,  and  oc  are  read 
and  G  is  computed  from  E/2(l+,0  )  for  each  material  tempera¬ 
ture  point.  For  an  input  code  of  0  or  P0,  then  Ex,  Ev, 

Ez,  *  xy,  yz,  -v  zx,  x,  <*  y,  z,  Gxy,  Gy„  and  Gz/are 
read  for  each  material  temperature  point.  If  the  input 
code  contains  a  P,  then  for  each  plastic  temperature  point 
the  following  data  is  read: 

N  -  exponent  of  stress- strain  function  assumption 

K  -  scalar  of  stress-strain  function  assumption 

X  -  nondimensionalizing  factor  for  Van  Mises  yield  criteria 


The  procedure  for  input  codes  6-11  is  as  follows; 

0UT  -  If  the  material  is  not  located  in  PR0FER,  then  a 
message  is  printed  to  this  effect  and  the  request 
is  ignored.  If  the  material  is  located  and  the 
lock  codes  do  not  match,  then  a  message  is  printed 
and  the  request  ignored.  If  the  material  is 
located  and  the  lock  codes  match,  then  the  deletion 
occurs  when  the  remaining  contents  of  PR0PER  are 
merely  shifted  up  over  the  deleted  material. 

ALL  -  A  flag  (WRTALL)  is  set  for  phase  three  and  control 
passes  to  the  next  request. 

SEE  -  If  the  material  is  not  located,  a  message  is 

printed  and  the  request  ignored.  If  the  material 
is  located,  the  table  is  printed  and  control 
passes  to  the  next  request. 

SUM  -  All  the  tables  in  PR0PER  are  scanned  and  the 

following  information  is  printed  for  each  table: 

Material  Number  (TAG1) 

Material  Identification  (MIDENT) 

Analysis  Capability  (derived  from  1,0,  PI,P0) 
Number  of  Material  Temperature  Points  (NPl) 
Number  of  Plastic  Temperature  Points  (NP2) 
Temperature  Range  of  Material  Table 
Temperature  Range  of  Plastic  Table 

/*/  -  If  the  material  is  located,  the  lock  code  is 
piinted.  If  the  material  is  not  located,  the 
request  Is  ignored. 

ZAP  -  If  the  material  is  not  located,  the  request  Is 
ignored.  If  the  material  is  located.  It  is 
deleted  regardless  of  lock  code. 

Phase  two  ends  when  all  of  the  requests  have  been  processed. 

Phase  three  consists  of  writing  the  new  or  updated  material 
library  on  JTAPE1  and  printing  the  entire  tape  if  it  has 
been  requested.  Writing  of  the  tape  and  a  print  of  the 
entire  material  library,  if  requested,  are  done  in  a  parallel 
processing  manner;  i.e.,  a  table  is  written  on  tape  and  then 
printed,  if  requested.  Either  process  may  be  done  separately 
or  together  depending  upon  the  requests  received.  Finally, 
if  a  tape  has  been  written,  a  summary  is  printed. 
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4.  Input  Arguments: 


NM 

MATTAP 

IN 

TABMAT 

TABPLA 

PR0PER 

NW0RK 

ITAPE1 

JTAPE1 

NAM0UT 

NAMIN 


Number  of  Requests 

Code  Controlling  Selection  of  Input  and  Output 
Tapes 

Input  Tape  Unit 

Material  Properties  Work  Storage  Area 
Plastic  Properties  Work  Storage  Area 
Material  Library  Work  Storage  Area 
Number  of  Available  Work  Storages 
Input  Material  Library  Tape  Unit 
Output  Material  Library  Tape  Unit 
Array  Containing  Output  Material  Library  Name 
Array  Containing  Input  Material  Library  Name 


5.  Output  Arguments: 


MATTAP  :  Code  signifying  error  condition  has  been 
encountered,  if  MATTAP  ^  0,  then  no  error 
has  been  encountered,  if  MATTAP  <  0,  then  error 
condition  exists. 


6.  Error  Returns: 


Message 


Action  Taken 


£1}  Value  of  Young's  Modulus  (3)^  1.0 

(2)  Value  of  Poisson's  Ratio  c  -1.0  or 

>  1.0 

(3)  Value  of  thermal  expansion  coefficient 

(oc  )  <-1.0  or  >  1.0 

14)  Value  of  Rigidity  Modulus  (G)  <  1.0 
5)  Value  of  mass  density  is  negative 
6)  Lock  codes  do  not  match  for  revision 
7)  Lock  codes  do  not  match  for  deletion 
8 )  Capacity  of  material  library  exceeded 
9;  Number  of  material  or  plastl-' 
temperature  points  >  9 
(10)  Attempt  to  delete  nonexistent  material 
(11)  Attempt  to  input  plastic  data  only  for 
nonexistent  material 
(12)  Unrecognizable  input  code 
(13)  Request  to  print  nonexistent  material 
(14)  Number  of  requests  is  zero 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

IGNORE  REQUEST 
RETURN 

RETURN 

IGNORE  REQUEST 

IGNORE  REQUEST 
RETURN 

IGNORE  REQUEST 
RETURN 
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7.  Calling  Sequence: 


Call  FMAT  (NM,  MATTAP,  IN,  TABMAT,  TABPLA,  PROPER,  NW0RK, 
ITAPE1,  JTAPE1,  NAM0UT,  NAMIN) 


8.  Input  Tapes 

9.  Output  Tapes 

Input  and  output  tapes  are  identical  with  respect  to 
information  contained  and  record  format.  Records  are 
as  follows  from  the  matrix  header  to  the  matrix  trailer: 


Format  Matrix  Header  Record 


Record  number  1  -  ICjZfL,  K0DE,  IW0RDS,  NUMTAB,  NUMSEQ 


Record  numbers  2  to  NUMTAB+1 


IC0L,  K0DE,  1W0RDS,  NT0T, 
D,  TAG1,  TAG2,  NP1,  NP2, 
DENSTY,  MIDENT,  ((TABMAT 
(I,J),  J«l,  NMAT), 

1=1,  NP1) ,  ( (TABPLA(I, J), 
J=l,  NPLAj,  1=1, NP2) 


Format  Matrix  Trailer  Record 


where  ICOL 
X0DE 
IW0RDS 
NUMTAB 
NUMSEQ 
NT0T 

D 

TAG1 

TAG2 

NP1 

NP2 

DENSTY 

MIDENT 

TABMAT 

NMAT 

TABPLA 

NPLA 


:  Dummy  Variable 
:  Dummy  Variable 

:  Number  of  Words  Remaining  in  Record 
:  Number  of  Material  Tables  in  Library 
:  Sequence  Number  of  Library 
:  Total  Number  of  Words  in  the  Specific 
Table 

:  Input  Code 
:  Material  Number 
:  Lock  Code 

:  Number  of  Material  Temperature  Points 
:  Number  of  Plastic  Temperature  Points 
:  Mass  Density 

:  Material  Identification  (Short 
Description  or  Name) 

:  Material  Properties  Table 
:  Number  of  Material  Properties  per 
Temperature  Point  +  1 
:  Plastic  Properties  Table 
:  Number  of  Plastic  Properties  per 
Temperature  Point  +  1 


10.  Scratch  Tapes:  None 
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IX.  Storage  Required: 

C0M(1O),  MIDENT(4),  G(l6),  LEADER (20) ,  TAG1(6),  NFIX1A(6), 
Total  Storage  required  is  llEB8^g  Bytes.  PL1A(6) 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  SHIFT 

14.  Remarks: 

Whenever  new  or  updated  material  tape  is  written,  all 
changes  and/or  additions  and  a  summary  of  the  output  tape 
are  printed. 


i 
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1.  Subroutine  Name:  SHIFT 


2.  Purpose:  Given  a  one-dimensional  array,  this  routine  can 
x’elocate  a  block  of  data,  within  the  array. 

3.  Equations  and  Procedures:  The  routine  computes  the  size 
of  the  block  to  be  shifted.  It  checks  the  direction  of 
shift,  and  initializes  the  shift  constants,  finally 
performing  the  shift. 

4.  Input  Arguments: 

PROPER  :  Array  in  which  shifting  is  to  occur 

IFROM  :  Initial  subscript  of  block  to  be  shifted 

ITO  .  Final  subscript  of  block  to  be  shifted 

ISI73  j  Size  of  shift 

NDIR  .  direction  of  shift 

5.  Output  Arguments: 

IERROR  :  Error  return 

6.  Error  Returns:  If  the  size  of  the  block  to  be  shifted 
is  computed  to  be  negative  (IFROM  .  ITO)  IERROR  is  set 
equal  to  1  (one). 

7.  Calling  Sequence: 

SHIFT  (PROPER,  IFROM,  ITO,  ISIZE,  NDIR,  IERROR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  2B6.jg  Bytes. 

12.  Subroutine  User:  FMAT 
.13.  Subroutines  Required:  Hone 

14.  Remarks:  None 
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1. 


Subroutine  Name : 


HARUEN 


2.  Purpose: 

Compute  the  working  storages  which  are  required  to  form  harmonic 
numbers  and  harmonic  coefficients. 

3.  Equations  and  Procedures: 

(a)  Read  the  number  of  element  from  the  tape  NTAPE3  and  number 
of  harmonic  required  from  the  tape  NPIT. 

(b)  (b)  Compute  the  working  storages  required. 

(c)  Call  subroutine  HARGE1 

Input  Arguments: 


XEL: 

used 

by 

RECl 

YEL: 

used 

by 

REC1 

ZEL: 

used 

by 

RECl 

TEL: 

used 

by 

RECl 

PEL: 

used 

by 

RECl 

NORD: 

used 

by 

RECl 

LISTEL: 

used 

by 

RECl 

NNO: 

used 

by 

RECl 

NODES: 

used 

by 

RECl 

IP: 

used 

by 

RECl 

DISPEL: 

used 

by 

RECl 

PCOLEL: 

used 

by 

RECl 

LISTDL: 

used 

by 

RECl 

IG: 

used 

by 

RECl 

NEL: 

used 

by 

RECl 

GPAXEL: 

used 

by 

RECl 

NUMMAT: 

used 

by 

RECl 

MAT: 

used 

by 

RECl 

NUMEPS: 

used 

by 

RECl 

EPS ION: 

used 

by 

RECl 

NUMSO: 

used 

by 

RECl 

SO: 

used 

by 

RECl 

EXTRA: 

used 

by 

RECl 

WORK: 

working 

storage  array 

NWORK:  the  number  of  words  available  for  the  working  storage 

NIN:  number  of  the  working  storage  allocated 

IHONT:  used  by  HARGE1 

NTAPE3:  input  tape 

NTAPElJ:  used  by  HARGE1 

IN:  input  tape 

HPTC:  used  by  HARGE1 

HARP:  used  by  HARGE1 

HART;  used  by  HARGE1 

ERROR:  error  return  code 
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5. 


Output  Arguments: 


If  error  »  TRUE  on  return.  It  means  it  does  not  have  enough 
core  storage  to  compute  the  harmonic  number  and  the  harmonic 
coefficient . 

6.  Calling  Sequence: 

( XEL , YEL , ZEL , TEL , PEL , NORD , LISTEL , NNO , NODES , IP, DISPEL , PCOLEL , LISTDL , 
IG , NEL , GPAXEL , NUMMAT , MAT , NUMEPS , EPSION , NUMSO , SO , EXTRA , WORK , NWORKR , 
NIN,  I  HO  NT ,  NTAPE3 ,  NTAPE*i ,  IN,  HPTC ,  HARP ,  HART ,  ERROR ) 


7. 

Input  Tapes:  NTAPE3, 

IN 

8. 

Output  Tapes :  None 

9. 

Scratch  Tapes:  None 

10. 

Subroutine  User:  Input 

11. 

Subroutine  Required: 

HARGE1 
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1. 


Subroutine  Name:  HARMA 


2.  Purpose:  Subroutine  HARMA  is  used  to  compute  the  harmonic  number 

and  the  harmonic  coefficient  from  fourier  series. 

3.  Equations  and  Procedures: 

The  .general  formula  for  fourier  series  is 

Ao  Ntt  N<t  X 

F(X)  =  2  +  E  (AnC0S  L  X  +  Bn.SIN  L  ),  Where 

N=1 


1  L  N  ttX  _ 

An  *  -  z  (  +  (X)  COS  L  )  N  =  0,  1,  2  (l; 

L  -L 


1  L  N  TTX  ^ 

B  -  L  E  .  (+  (X)  SIN  L  ),  N  =  1,  2  2 

n  -Jj  “ 


For  a  given  value  of  +(X)  and  N,  the  harmonic  coefficients  An  and 
Bn  will  be  computed  by  using  formula  (l,  and  12}  .  The  harmonic 
number  is  formed  by  taking  the  average  value  between  -L  and  L. 

Input  Arguments: 

Y  -  Y  array  contains  pressure  loads  or  thermal  loads 
Fc  -  On  return  array  Fc  contain  the  fourier  coefficients 
KH  -  Fourier  number 

NPT  -  Number  of  the  pressure  loads  or  the  thermal  loads 

c  -  COS  value 

S  -  SIN  value 

KMAX  -  Maximum  fourier  number  to  be  generated 

CONV  -  Array  conv  contains  the  convergent  factors 

5.  Output  Arguments: 

Fc  -  Array  Fc  contain  the  fourier  coefficients 
KH  -  Fourier  number 


6. 


7. 


Error  Returns :  None 
Calling  Sequence: 
(Y,A,KHN,NH,NPTC,C,S,KMAX,CON) 
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1.  Subroutine  Name: 


HARGE  1 


2.  Purpose:  Read  input  data  for  subroutine  HARMA.  Output  the 

harmonic  numbers  and  the  harmonic  coefficients. 

3.  Equations  and  Procedures: 

(a)  Retrieve  the  number  of  elements  from  the  input  tape 

(b)  Read  the  necessary  harmonic  generated  input  data 

(c)  Call  subroutine  HARMA  to  generate  the  harmonic  number  and 
the  harmonic  coefficients  for  each  element  in  this  analysis. 

(d)  Add  the  harmonic  number  and  the  harmonic  coefficients  onto 
Ntape  3«  Ntape  3  contains  element  informations. 

*».  Input  Arguments: 


XEL 

“Used 

by 

PEC1 

YEL 

-Used 

by 

P.EC1 

ZEL 

-Used 

by 

REC1 

TEL 

-Used 

by 

REC1 

PEL 

-Used 

by 

REC1 

NORD 

-Used 

by 

REC1 

LISTEL 

-Used 

by 

REC1 

NNO 

-Used 

by 

REC1 

NODES 

-Used 

bv 

REC1 

IP 

-Used 

by 

REC1 

DISPEL 

-Used 

by 

REC1 

PCOLEL 

-Used 

by 

REC1 

LI3TDL 

“Used 

by 

REC1 

IG 

-Used 

by 

REC1 

NEL 

-Used 

by 

REC1 

GPAXEL 

“Used 

by 

REC1 

NUMMAT 

-Used 

by 

REC1 

MAT 

“Used 

by 

REC1 

NUMEPS 

-Used 

by 

REC1 

EPSION 

“Used 

by 

REC1 

NUMSO 

-Used 

by 

REC1 

SO 

-Used 

by 

REC1 

EXTRA 

-Used 

by 

REC1 

Work 

-Work  Storage  Array 

NWOKR 

-Number  of  work  storages 

NIN 

-Number  of  work  storage  allocated 

IHONT 

-Harmonic 

information  array 

NTAPE3 

-Input 

tape  contains  element  informations 

NTAPE4 

-Scratch 

tape 

IN 

-Card 

input  unit 

HPTC 

-Control 

for  the  pressure  load  or  the  thermal  load 

HARP 

-Control 

for  the  pressure  load 

HART 

-Control 

for  the  thermal  load 
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5.  Output  Arguments: 

IHONT  -  This  array  contains  the  harmonic  informations 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(XEL, YEL, ZEL, TEL,  PEL, NORD, LISTEL, NNO, NODES , IP, DISPEL, PCOLEL, 
LISTDL, IG, NEL, GPAXEL, NUMMAL, MAT, NUMEPS , EPS ION, NUMSO, SO, EXTRA , 
WORK, NWOKR , NIN, IHONT, NTAPE3, NTAPE4, IN, HPTC, HARP, HART) 

8.  Input  Tapes:  NTAPE3 

9.  Output  Tapes:  NTAFE3 

10.  Scratch  Tapes:  NTAPE4 

11.  Storage  Required: 

12.  Subroutine  User:  Input 

13.  Subroutine  Required:  HARMA,  REC1 


1.  Subroutine  Name:  REFORM 


2.  Purpose:  Control  generation  of  BCD  input  tape  from  Report 
Form  Input  Sheets. 

3.  Equations  &  Procedures:  Storage  is  allocated  for  all  vari¬ 
ables  needed  by  PHASE1  and  PHASE2  combined.  All  valid 
input  section  names  are  stored  by  a  data  statement  in  array 
NAMES.  Temporary  tape  storage  for  input  sections  which 
must  be  merged  are  assigned  to  scratch  tapes  NTAPE1  and 
NTAPE2.  Subroutine  PHASE1  is  entered  to  read  and  store  all 
data.  Subroutine  PHASE2  is  entered  tc  merge  and  output  on 
INTAPE  the  data  that  was  read  in  PHASE 1.  If  a  dump  has 
been  requested  then  the  contents  of  INTAPE  are  printed  on 
the  system  output  unit.  Control  is  then  returned  to  the 
calling  program. 

4.  Input  Arguments: 

INTAPE:  Tape  unit  number  cn  which  BCD  input  data 

is  to  be  generated 

NTAPE1,NTAPE2:  Scratch  tape  unit  numbers 

IN:  Input  tape  unit  number 

NRFPjNSS ,NRF:  Adjustable  dimension  variables 

COORD:  Storage  area  reserved  for  grid  point 

coordinates. 

Storage  area  reserve  for  grid  point 
temperatures. 

Storage  area  reserved  for  grid  point 
pressures. 

Storage  area  reserved  for  grid  point 
boundary  conditions 

Output  unit  of  prescribed  displacement 
matrix 

NAMDIS:  Name  of  prescribed  displacement  matrix 

5.  Output  Arguments: 

ELPRM;  Modal  values  from  element  pressure  input 

section. 

Modal  values  from  element  temperature 
input  section. 

Array  containing  dynamics  information 
for  analysis 

Logical  variable  indicating  error  condition 
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ELTPM 
DINFO : 
ERROR: 


T: 

P: 

IBOUND : 
IODISP: 


6.  Error  Returns:  If  an  error  has  occurred  in  PHASE1  or  PHASE2 

then  ERROR  is  set  to  .TRUE.. 

7.  Calling  Sequence: 

CALL  REFORM  (INTAPE,  NTAPE1,  NTAPE2,  IN,  NRFP,  NSS,  NRF, 

COORD,  T,  P,  IBOUND,  ERROR,  IODISP,  NAMDIS,  DINFO,  ELPRM, 

ELTPM) 

8.  Input  Tapes: 

IN  -  Scratch  tape  containing  card  images  of  data  deck 

9.  Output  Tapes: 

INTAPE  -  BCD  tape  containing  sorted  data  generated  for  sub¬ 
routine  INPUT 

10.  Scratch  Tapes: 

NTAPE1  -  Temporary  storage  for  grid  point  axes  input,  initial 
displacement  input  and  element  definition  input. 

NTAPE2  -  Temporary  storage  area  for  grid  point  loads  input, 
prescribed  displacement  input  and  special  element  input 


11.  Subroutine  User:  US04A 

12.  Subroutines  Required: 

PHASE1 

PHASE2 


13 .  Remarks :  None 


1.  Subroutine  Name:  PHASE1 

i.  Purpose:  Read,  sort  and  store  temporarily,  all  report  form 
input  data. 

3.  Equations  &  Procedures:  First,  all  core  storage  areas  are 
initialized  with  either  blanks  or  zeroes.  The  following 
core  storage  areas  are  initialized  with  blanks:  IBOUND, 
COORD,  BM,  LM,  INM,  PRM,  EM  and  ERRMOD.  The  following  core 
storage  areas  are  initialized  with  zeroes:  P,  T,  MEMORY, 

TM  and  PM. 

Reading  of  input  is  controlled  entirely  by  label  cards  for 
each  input  section.  Correlation  between  label  codes  and 
input  sections  is  as  follows: 


Code 

.nput  Section 

TITLE 

Title  cards 

COORD 

Grid  point  coordinates 

TEMP 

Grid  point  temperatures 

PRESS 

Grid  point  pressures 

BOUND 

Grid  point  boundary  conditions 

MATER 

Material  library  requests 

LOADS 

Grid  point  external  loads 

GRAXES 

Grid  point  axes  ( matrices  generated) 

TRANS 

Grid  point  axes  (matrices  input) 

INITA 

Grid  point  initial  displacements 

PRDISP 

Grid  point  prescribed  displacements 

ELEM 

Element  definition  data 

EXTERN 

Special  element  data 

INPUT 

Master  input  control 

PRINT 

Print  controls 

CALC 

Calculation  controls 

END 

End  card 

CHECK 

Check  card 

SYSTEM 

System  control  information 

STST 

Element  stress -strain  data 

ELPR 

Element  Pressure  data 

ELTP 

Element  Temperature  data 

After  initialization,  the  data  may  be  read  from  IN.  The 
only  restriction  placed  upon  order  of  input  sections  is  that 
SYSTEM  may  only  be  preceded  by  TITLE,  MATER  and/or  INP”T. 

The  procedure  for  a  typical  input  section  is  as  follows: 

(l)  Subroutine  LATCH  is  called  to  determine  the  identity 
of  the  input  section. 
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(2)  Control  s  transferred  to  the  corresponding  section 
of  PHASEa  that  will  read  and  store  the  data.  This 
step  is  accomplished  either  directly  in  PHASE1  itself 
or  by  a  call  to  FORMIN. 

(3)  Data  storing  for  a  section  terminates  upon  reading  of 
a  section  label  card  which  differs  from  the  section 
being  read. 

Upon  reading  a  CHECK  or  END  card,  PHASE1  returns  control  to 
the  calling  program. 

4.  Input  Arguments; 


NAMES: 

INTAPE: 

LOCATE : 


NUMCAL: 

NUMNAM: 

ICASE: 

NDIR: 

NEND: 

IN: 

NRFP: 

NRF: 

DINFO : 

5.  Output  Arguments: 
COORD: 

T: 

P: 

MEMORY: 


Array  containing  valid  input  section  labels 

Tape  unit  number  on  which  BCD  input  data  is 
to  be  generated 

Array  containing  tape  unit  numbers  locating 
temporary  tape  storage  for  input  sections. 
For  each  entry  in  NAMES  there  is  a  corres¬ 
ponding  entry  in  LOCATE  pointing  to  a  tem¬ 
porary  storage  area.  If  the  entry  in 
LOCATE  is  a  zero  then  storage  is  in  core. 

If  the  entry  is  non-zero  then  storage  is 
on  the  tape  number  indicated. 

Number  of  possible  solution  techniques 

Number  of  valid  input  section  labels 

Case  number 

Number  of  directions  per  grid  point 

Last  word  of  every  input  section  placed 
on  tape 

Input  tape  unit  number 
Adjustable  dimensions  for  COORD,  T  and  P 
Adjustable  dimension  for  IBOUND 
Dynamics  information 


Array  containing  grid  point  coordinates 

Array  containing  grid  point  temperatures 

Array  containing  grid  point  pressures 

Array  containing  indicators  which  record 
input  sections  that  have  been  encountered 
during  processing  of  data 
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IBOUND : 
TM: 


PM: 

BM: 

SM: 

INM: 

PRM: 

EM: 

NLOAD : 
NINITA : 
NPRDIS : 


ICALC: 

NREP: 

NREFP: 

NTD: 

NL: 

NID: 

NPD: 

NAXES: 

NELEM: 

NM: 

NREF4: 
TZERO : 
NREF4C: 

NREFPC : 
NELEMC : 


Array  containing  grid  point  boundary  condi¬ 
tions 

Array  containing  grid  point  temperature 
modal  values 

Array  containing  grid  point  pressure 
modal  values 

Array  containing  grid  point  boundary 
condition  modal  values 

Array  containing  grid  point  load  modal 
values  for  each  load  condition 

Grid  point  initial  displacement  modal  values 

Grid  point  prescribed  displacement  modal 
values 

Special  element  input  modal  values 

Array  containing  number  of  points  in  each 
load  condition 

Array  containing  numbers  of  points  in  each 
initial  displacement  condition 

Array  containing  number  of  points  in  each 
prescribed  displacement  condition 

Array  containing  solution  procedures  desired 

Number  of  system  referenced  grid  points 

Number  of  input  grid  points 

Number  of  degrees  of  freedom  per  grid  point 

Number  of  load  conditions 

Number  of  initial  displacement  conditions 

Number  of  prescribed  displacement  conditions 

Number  of  grid  point  axes  systems 

Number  of  elements 

Number  of  requests  of  the  material  library 
tape 

Number  of  input  boundary  condition  grid  points 

System  reference  temperature 

Number  of  boundary  condition  points  read 
by  PHASE1 

Number  of  grid  points  read  by  PHASE1 
Number  of  elements  read  by  PHASE1 
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NGRAXC : 


Number  of  grid  point  axes  systems  read 
by  PHASE1 

NTRANC:  Number  of  grid  point  axes  transformation 

matrices  read  by  PHASE! 

ERROR:  Error  indicator 

DUMPT:  Debug  dump  indicator 

ELPRM  Array  of  element  pressure  modal  values 

ELTPM  Array  of  element  temperature  modal  values 

NPRKT  Number  of  entries  in  element  pressure 

section 

NTPKT  Number  of  entries  in  element  temperature 

section 

NPDL  Number  of  prescribed  displacement  conditions 

6.  Error  Returns: 

Message:  Action  Taken: 

Unexpected  blank  label  Flush  to  next  recognizable  label 
card  encountered.  card  and  insert  check  card. 

No  option  has  been  se-  Flush  to  next  recognizable  label 
lected  for  request  number  card  and  insert  check  card, 
xxx  of  material  library. 

More  than  one  option  has  Retain  first  selection  encountered, 
been  selected  for  request 
number  xxx  of  material 
library. 

Maximum  number  of  load  con¬ 
ditions  allowed  Is  100.  Flush  to  next  recognizable  label 
This  problem  contains  xxx.  card  and  insert  check  card. 

Load  condition  xxx  sub-  Flush  to  next  recognizable  label 
label  is  incorrect.  Pro-  card  and  insert  check  card, 
gram  cannot  distinguish 
between  load  conditions. 

Illegal  modal  card  en-  Self-explanatory 

countered.  Card  will  be 

ignored. 

Due  to  previously  encoun-  Self-explanatory 
tered  error  condition  this 
section  is  being  skipped. 

Program  will  flush  data 
deck  until  next  recogniz¬ 
able  section  is  encountered. 

Unrecognizable  input  Flush  to  next  recognizable  label 

section.  card  and  insert  check  card. 
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Due  to  above  error  meesage  Self-explanatory 
this  section  will  be  omit¬ 
ted  and  check  card  inser¬ 
ted. 

7.  Calling  Sequence: 

CALL  PHASE1  (COORD,  T,  P,  MEMORY,  IBOUND,  NAMES,  TM,  PM, 

BM,  SM,  INM,  PRM,  EM,  NLOAD,  NINITA,  NPRDIS,  ICALC,  NREP, 
NREFP,  NTD,  NL,  NIL,  NPD,  NAXES,  NELEM,  NM,  NREF4,  TZERO , 
INTAPE,  LOCATE,  NUMCAL,  NUMNAM,  ICASE,  NDIR,  NEND,  NREF40, 
NREPPC,  NELEMC,  NGRAXC,  NTRANC,  IN,  NRFP,  NRF,  ERROR, 

DUMPT,  DINFO,  NPDC,  ELPRM,  ELTPM,  NPRKT,  NTPKT) 

8.  Input  Tapes: 

IN  -  BCD  tape  containing  card  images  of  data  deck 

9.  Output  Tapes: 

NTAPE1  -  Temporary  storage  for  grid  point  axes  input, 

initial  displacement  input,  and  element  defini¬ 
tion  input 

NTAPE2  -  Temporary  storage  for  grid  point  loads  input, 
prescribed  displacement  input  and  special 
element  input 

INTAPE  -  TITLE ,  MATER,  PRINT  sections  are  output  if  they 
were  present, 

10.  Scratch  Tapes:  None 


11.  Subroutine  User:  REFORM 

12.  Subroutines  Required: 

LATCH 

FORMIN 


13 .  Remarks :  None 


1. 


Subroutine  Name :  LATCH 


2.  Purpose:  Compare  a  six  character  name  to  the  recognizable  j 

list  of  input  section  names  for  Report  Form  Input.  j 

3.  Equations  and  Procedures:  The  six  character  name  LABEL  is 

compared  to  each  of  the  legal  input  section  names  (array 
NAMES).  If  a  match  is  found  then  LEADER  is  set  to  the 

position  number  in  NAMES  which  contained  the  matching  name.  I 

If  no  match  is  found  then  LEADER  is  set  equal  to  one  plus  the  j 

number  of  legal  section  names.  j 

I 

4.  Input  Arguments:  j 

l 

LABEL  -  name  to  be  matched  | 

NUMNAM  -  number  of  valid  input  section  names  j 

NAMES  -  array  containing  valid  input  section  names  j 

5.  Output  Arguments:  ! 

!  ’ 

LEADER  -  position  number  in  NAMES  of  input  section  name  which 

matches  LABEL  j 

If  no  match  was  found  then  LEADER  is  set  equal  to  j 

NUMNAM  +  1  ! 

I, 

6.  Error  Returns:  None  j. 

< 

7.  Calling  Sequence:  CALL  LATCH  (LABEL,  LEADER,  NUMNAM,  NAMES)  I 

8.  Input  Tapes:  None  I 

! 

9.  Output  Tapes:  None  * 

10.  Scratch  Tapes:  None  , 

i 

11.  Storage  Required:  Total  Storage  required  is  1BA1(j  Bytes.  > 

12.  Subroutine  User:  PHASE1  j 

| 

13.  Subroutines  Required:  None  ' 

i 

14.  Remarks:  None 


i 
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1. 


.Subroutine  Name :  FORMIN 


2.  Purpose:  Read  and  store  on  tape  or  in  core  all  table 

form  input  to  Phase  One  of  Report  Form  Input  Preprocessor. 


3.  Equations  and  Procedures:  The  decision  to  store  data  on 
tape  or  in  core  is  determined  by  examining  the  input 
variable  NTAPE.  If  NTAPE  is  less  than  or  equal  to  zero 
then  the  data  is  stored  in  core,  otherwise  the  data  is 
stored  on  the  unit  specified  by  NTAPE.  Any  modal  values 
read  are  always  stored  in  core. 

4.  input  Arguments: 


LEADER 

MEMORY 

NAMES 

NTAPE 

AMODAL 

MODAL 

NUMBER 

REPEAT 

FMT1-5 

MSG1-3 

WARN 

FATAL 

NCARD 

CORE 

NR,  NC 

LABSUB 

IN 


Index  number  referring  to  input  section  being 

processed 

Not  used 

Array  containing  legal  input  section  labels 
Storage  indicator,  if*0  then  NTAPE  contains 
unit  number  for  external  storage 
Storage  reserved  for  modal  values  read,  if  any 
Modal  card  label 

Number  of  input  values  to  be  read  per  card 
logical  variable  indicating  legality  of  repeat 
option 

Input  formats 

Error  message  formats 

Error  message  warning  flag 

Error  message  fatal  flag 

Number  of  input  cards  per  table  entry 

Core  storage  area  if  data  is  to  remain  in  core 

Adjustable  dimensions  of  CORE 

Sub-label  for  multiple  condition  input  sections 

Unit  number  containing  input  data 


5.  Output  Arguments: 


LABEL  :  Input  section  label  encountered  which  was 

different  from  input  section  label  now  being 
processed 

KOUNT  :  Number  of  input  table  entries  read 
NERROR  :  Error  indicator 

NCOND  :  Condition  number  for  encountered  sub-label 

SCALAR  :  Constant  for  encountered  sub-label 
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6.  Error  Returns:  Error  conditions  are  indicated  in  NERROR 

as  follows : 

If  NERROR  equals  zero,  then  no  error  has  occurred 
If  NERROR  is  less  than  zero,  then  a  sub-label  has  been 
encountered 

If  NERROR  is  greater  than  zero,  then  a  fatal  error  has 
occurred  and  an  appropriate  message  will  be  printed 

7.  Calling  Sequence:  Call  FORMIN 

(LEADER,  MEMORY,  NAMES,  LABEL,  KOUNT,  NTAPE,  AMODAL,  MODAL, 
NUMBER,  REPEAT,  PMT1,  FMT2,  FMT3,  FMT4,  FMT5,  MSG1, 

MSG2,  MSG3,  WARN,  FATAL,  NERROR,  NCARD,  CORE,  NR,  NC, 
LABSUB,  NCOND,  SCALAR,  IN) 

8.  Input  Tape:  IN  contains  input  data 

9.  Output  Tape:  If  NTAPE  is  greater  than  zero  then  it  will 

contain  the  stored  input,  otherwise  there  is  no  output 
tape. 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  g  Bytes. 

12.  Subroutine  User:  PHASE1 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  PHASE2 


Purpose:  Merge,  order  and  output  form  input  data  stored 
by  PHASE 1. 

Equations  and  Procedures:  The  input  sections  stored  by 
PHASE1  arc*  detected  by  examining  the  array  MEMORY.  The 
exact  procedure  is  to  check  the  MEMORY  array  in  the  order 
required  for  output  and  if  the  MEMORY  value  for  that  section 
is  greater  than  zero  then  output  that  section* s  stored  data; 
otherwise  continue  to  the  next  section.  The  order  in  which 
the  stored  input  sections  are  output,  if  present,  and  the 
sections  that  they  are  to  be  merged  with  is  as  follows: 

Input  Section  Generated  from  Report  Form  Input  Sections 


NREF 

TZERO 

GR^D 

BOUNDS 

ELEM 

TRANS 

GRAXES 

LOADS 

END 

CHECK 

Input  Arguments: 


SYSTEM 

SYSTEM 

COORD,  TEMP,  PRESS 

BOUND,  CALC,  INITA,  PRDISP 

ELEM,  EXTERN 

TRANS 

GRAXES 

LOADS 

END 

CHECK 


COORD 


MEMORY 


IBOUND 


NAMES 


:  Array  containing  system  grid  point 
coordinates 

:  Array  containing  grid  point  temperatures 

:  Array  containing  grid  point  pressures 

:  Array  indicating  report  from  input 
sections  read 

:  Array  containing  grid  point  boundary 
conditions 

:  Array  containing  legal  report  form  input 
section  names 

:  Array  containing  modal  values  for  grid 
point  temperatures 

:  Array  containing  modal  values  for  grid 
point  pressures 

;  Array  containing  modal  values  for  grid 
point  boundary  conditions 

:  Array  containing  modal  values  for  grid 
point  load' conditions 

:  Array  containing  modal  values  for  initially 
displaced  grid  points 


8.191* 


PRM 

EM 

NLOAD 

NINITA 

NPRDIS 

ICALC 

NREF 

NREFP 

NTD 

NL 

NID 

NPD 

NAXES 

NELEM 

NM 

NREF4 

TZERO 

INTAPE 

LOCATE 

NUMCAL 

NUMNAM 

ICASE 

NDIR 

NEND 

NREF4C 

NREFPC 

NELEMC 


Array  containing  modal  values  for  pre¬ 
scribed  displaced  grid  points 

Array  containing  modal  values  for  special 
element  input 

Number  of  loaded  grid  points  per  load 
condition 

Number  of  initial  displacement  conditions 

Number  of  prescribed  displacement  condi¬ 
tions 

Array  containing  solution  codes 

Number  of  grid  points  in  system 

Number  of  input  grid  points 

Nr.mber  of  degrees  of  freedom  per  grid  point 

Number  of  load  conditions 

Number  of  initially  displaced  grid  points 

Nunber  of  prescribed  displaced  grid  points 

Number  of  grid  point  axes  transformation 
systems 

Number  of  elements 

Number  of  requests  of  material  library 

Number  of  input  boundary  condition  points 

System  base  temperature 

Unit  on  which  processed  output  is  to  be 
written 

Array  indication  storage  location  cf  input 
sections 

Number  of  solution  codes 

Number  of  legal  report  form  input  section 
labels 

Not  used 

Number  of  directions  per  g.  1  point 
Not  used 

Number  of  input  boundary  condition  points 
actually  read 

Number  of  input  grid  points  actually  read 
Number  of  input  elements  actually  read 
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NGRAXG 


:  Number  of  input  grid  point  axes  systems 
actually  read  (transformation  matrices 
generated) 

NTRANC  :  Number  of  input  grid  point  axes  systems 

actually  read  (transformation  matrices 
input) 

IN  :  Net  used 

NRFP  :  Not  used 

NRF  :  Adjustable  dimension  for  COORD,  T,  P,  and 

IBOUND 

NPRKT  :  Number  of  entries  in  element  pressure 

section 

NTPKT  :  Number  of  entries  in  element  temperature 

section 

IODISR  :  Output  unit  number  for  prescribed  dis¬ 

placement  matrix 

NAMDIS  :  Name  of  prescribed  displacement  matrix 

NPDC  :  Number  of  prescribed  displacement  condi¬ 

tions 


5.  Output  Argument 

DINFO  5  Array  containing  dynamics  information 

for  eigenvalue  analysis 

ERROR  :  Error  indicator 

6.  Error  Returns i  Error  messages  are  indicated  in  Appendix. 

If  an  error  occurs  logical  variable  ERROR  is  set  to  TRUE 
and  control  is  returned  to  the  calling  program. 

7.  Calling  Sequence:  Call  PHASE2 

(COORD,  T,  P,  MEMORY,  IBOUND,  NAMES,  TM,  PM,  BM,  SM,  INM, 
PRM,  EM,  NLOAD,  NINITA,  NPRDIS,  ICALC,  NREF,  NREFP,  NTD, 

NL,  NID,  NPD,  NAXES,  NELEM,  NM,  NREF4,  TZERO,  INTAPE, 

LOCATE,  NUMCAL,  NUMNAM,  ICASE,  NDIR,  NEND,  NREF4C ,  NREFPC, 
NELEMC,  NGRAXC ,  NTRANC,  IN.  NRFP,  NRF,  ERROR,  DINFO,  IODLSP, 
NAMDIS,  NPDC,  NPRKT,  NTPKT) 

8.  Input  Tapes:  The  array  LOCATE  contains  the  unit  number,  if 
any,  on  which  data  was  stored  by  subroutine  PHASE1. 
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9.  Output  Tape:  INTAPE  contains  processed  output 

10.  Scratch  Tapes:  None 


II.  Subroutine  User:  REFORM 
IP.  Subroutine  Required:  OPEN 
13.  Remarks:  None 
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Subroutine  Name: 


PDISP 


Purpose:  Generate  prescribed  displacement  matrix  if 

required. 

Equations  and  Procedures: 

A.  Check  if  matrix  name  is  suppressed,  if  it  is  then 
return  (no  matrix  is  output). 

B.  Check  if  NPDC}]  and  NPDC<NL  print  error  message  and  return. 

C.  Use  EUTL5  bo  write  matrix  header. 

D.  If  MODAL  array  is  blank  insert  zeros,  if  not  insert 
MODAL  values  into  displacement  column. 

E.  Loop  on  number  of  grid  points  for  which  values  were 
given,  inserting  them  into  the  displacement  column. 

P.  Compress  column  each  time,  using  EUTL8,  and  write  it  out. 

G.  If  column  compresses  to  zero  skip  write  out. 

H.  Do  (D)  to  (G)  for  each  prescribed  displacement  condition. 

I.  At  end  use  EUTL6  to  v»rite  matrix  trailer. 


Input  Arguments: 


NREF 

NTD 

NL 

PRM 

NPROIS 

IODISP 

NAMDIS 

NPDC 

DISP 

KTAPE 


number  of  system  grid  points 

number  of  degrees  of  freedom/point  (NDEG#NDIR) 

number  of  external  load  conditions  input 

array  of  modal  values/condition 

number  of  input  points/condition 

output  logical  unit  number  of  matrix 

name  of  output  matrix  array  (7  elements  long) 

number  of  prescribed  displacement  conditions  input 

(array  area  used  by  IBCUND  array  used  in  PHASE2- 

now  used  to  store  displacement  column) 

tape  logical  unit  number  used  for  displacement  input 


Output  Arguments:  ERROR  -  logical  variable  true  if  error 

return  is  used. 

Error  Returns:  If  NPD0}1  and  NPDC<NL. 

Calling  Sequence: 

Call  PDISP ( NREF , NTD , NL , PRM , NPRDIS , NPDC , IODISP , NAMDIS ,DISP , 

KTAPE, ERROR) 

Input  Tapes:  KTAPE  -  See  Item  H. 

Output  Tapes.:  NPOT  -  standard  print  out  unit;  IODISP  -  See  Item  4 

Scratch  Tapes:  None 
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11. 


Storage  Required:  Total  Storage  required  is  7DE1g  Bytes. 

12.  Subroutine  User:  PHAS.22 

13.  Subroutine  Required: 

EUTL5 

EUTL6 

EUTL8 

1^.  Remarks:  None 


1.  Subroutine  Name:  OPEN 


2.  Purpose:  Select  a  unit  and  then  locate  the  requested 
input  section  on  that  unit 

3.  Equations  and  Procedures:  The  correct  unit  number  is 
extracted  from  the  array  LOCATE.  The  unit  is  then  searched 
for  the  requested  input  section.  Searching  starts  from  the 
present  position  of  the  unit  and  allows  the  end  of  the 
unit's  extent  to  be  reached  twice  before  the  search  is 
abandoned . 

4.  Input  Arguments: 

LEADER  :  Identification  number  of  input  section 
being  processed 

NAMES  :  Array  containing  valid  labels 
LOCATE  :  Array  containing  corresponding  logical  1 
units  for  valid  labels 

*  :  Non-standard  return  for  error  condition 

5.  Output  Arguments: 

NTAPE  :  Unit  containing  requested  input  section 

6.  Error  Returns:  If  the  requested  input  section  is  not 
located  on  the  selected  unit  the  non-standard  return 
is  used. 

7.  Calling  Sequence:  Call  OPEN 

(LEADER,  NAMES,  LOCATE,  NTAPE,  $XXXXX)  where  XXXXX 
is  the  statement  number  to  which  control  is  returned 
in  the  calling  program  if  an  error  occurs. 

8.  Input  Tapes:  The  array  LOCATE  contains  the  logical  unit 
numbers  which  may  be  input  tapes. 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  24A^g  Bytes. 

12.  Subroutine  User:  FHASS2 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CHEK 


2.  Purpose:  Perform  input/output  cross-checking  for 
USER04  module 

3.  Equations  and  Procedures:  The  required  input  sections 
for  the  selected  output  matrices  are  indicated  in  the 
array  MASTER  (see  subroutine  LOGFLO).  The  actual  input 
sections  processed  are  indicated  in  the  array  ICONT. 

The  logical  array,  GO,  is  set  according  to  the  informa¬ 
tion  in  MASTER  as  compared  with  ICONT.  If  an  output 
matrix  requires  an  input  section  that  is  not  present 
then  a  message  is  printed  giving  the  matrix  name  and 
corresponding  position  in  the  GO  array  is  set  to  .FALSE. 

4.  Input  Arguments: 

NAMOUT  :  Array  containing  output  matrix  names 

NUMOT  :  Number  of  output  matrices 

NAMIN  :  Array  containing  input  matrix  names 

NUMIN  :  Number  of  input  matrices 

MASTER  :  Array  indicating  required  input  sections 

NUMAST  :  Length  of  MASTER 

ICONT  :  Array  indicating  processed  input  sections 
NCONT  :  Length  of  ICONT 

5.  Output  Arguments: 

GO  :  Array  indicating  input  requirements  have 

been  satisfied,  one  position  for  each 
possible  output  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NAMOUT,  NUMOT,  NAMIN,  NUMIN,  MASTER,  NUMAST,  ICONT, 
NCONT,  GO) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  59A1g  Bytes. 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  NTEST 

14.  Remarks:  None 


8.201 


1.  Subroutine  Name:  OUTINT 

2.  Purpose:  Output  interpreted  input  data  as  a  matrix 

3.  Equations  and  Procedures:  After  processing  the  input 
data  deck,  all  necessary  information  is  stored  in  three 
areas.  System  control  information  is  stored  in  the  array 
KNMD  and  in  the  first  two  records  on  scratch  unit  NTAPE1. 
Element  generation  data  is  stored  on  scratch  unit  NTAPE3. 
All  of  this  data  is  output  as  a  matrix,  the  first  column 
containing  KNMD,  the  second  and  third  columns  containing 
the  first  two  records  from  NTAPE,  the  fourth  column 
containing  two  words  (number  of  elements,  NELEM,  and 
grid  point  axes  indicator)  and  the  last  2*NELEM  columns 
containing  the  input  element  generation  data. 

4 .  Input  Arguments : 

NAMOUT  :  Array  containing  output  matrix  name 
IOSFEC  :  Array  containing  unit  specification?  for 
output  matrix 

NTAFE1  :  Unit  containing  system  control  information 
NTAPE3  :  Unit  containing  element  generation  data 
KNMD  :  Array  containing  system  control  information 
NUMK  :  Length  of  KNMD 

IWORK  :  Work  storage  area 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(NAMOUT,  IOSPEC,  NTAFE1,  NTAFE3,  KNMD,  NUMK,  IWORK) 

8.  Input  Tapes: 

NTAPE1  :  Unit  containing  sl  .iem  control  information 
NTAPE3  :  Unit  containing  element  generation  data 

9.  Output  Tapes: 

IOSPEC(l):  Unit  whj will  contain  interpreted  input 
data  matiix 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  6DE1g  Bytes. 

12.  Subroutine  User:  US04A 
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Subroutine  Required 


EUTL5 

EUTL6 


Remarks :  None 


I .  Subroutine  Name:  FLOADS 

2  .  Purpose :  To  generate  a  matrix  of  external  grid  point 
loads  which  is  acceptable  to  Format . 

3.  Equations  and  Procedures:  A  grid  point  load  matrix,  POOL, 
is  read  from  NTAPE4  for  each  load  condition.  It  is  then 
converted  into  compressed  format  and  stored  on  tape  I0SPEC. 

The  matrix  dimensions  are  NSYS  x  NL,  where  NSYS  is  the 
size  of  the  total  assembled  load  column  and  NL  is  the 
number  of  grid  point  load  conditions. 

4.  Input  Arguments  • 

NSYS  -  Size  of  total  assembled  load  column 
NAMOUT-  Array  containing  output  matriic  name  for  load 
matrix 

IOSPEC-  Output  tape  unit  number  for  loads  matrix 
NTAPE4-  Input  tape  unit  number  containing  loads  matrix 
POOL  -  Core  storage  area,  for  loads  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  PLEADS  (NSYS,  NAM0UT,  IOSPEC, 

NTAPE4,  PC0L) 

8.  Input  Tapes:  NTAPE4 

9.  Output  Tapes:  IOSPEC 

10,  Scratch  Tapes:  None 

II.  Storage  Required:  Total  Storage  required  is  3^^  Bytes. 

12.  Subroutine  User  -  US04A 

13.  Subroutines  Required  -  None 

14.  Remarks:  None 


1.  Subroutine  Name:  FTR 

2.  Purpose:  To  generate  a  matrix  which  will  transform 

another  matrix  from  full  system  coordinates  to  "reduced” 
system,  i.e.  boundary  condition  constrained. 

3.  Equations  and  Procedures:  The  matrix  TR  is  of  order 

NMDB  X  NSYS  such  that  if  J  =  LIST  (I),  then  the  element 
TR  (I,  J)  =  1.0.  LIST  contains  the  row  numbers  of  the 
full  system  which  are  to  be  retained  in  the  reduced 
matrix.  Only  fixed  bounds  are  reduced  out  as  indicated 
by  KODE  =  0  in  input  data  bounds- 

Each  column  is  generated  and  stored  on  tape  as  defined 
by  FORMAT.  Each  column  record  consists  of:  J,  1,  2,  1.0, 
where  J  =  LIST  (i). 

4.  Input  Arguments:  NMDB  -  order  of  reduced  matrix 

NSYS  -  order  of  full  system 
NAM0UT  -  matrix  name  of  TR 
J.0SPEC  -  matrix  output  tape  for  TR 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  FTR  (NSYS,  LIST,  NTAPE1,  NAM0UT,  I0SPEC ) 

8.  Input  Tope:  NTAPE1 

Record  #1  C0M1  (not  required) 

R  'Cord  #2  NMDB1,  NMDB,  (LIST  (I),  1=1,  NMDB) 

9.  Output  Tflponj  I0SPEC  **  Format  Output  Tape  Number 

10.  Scrotoh  Tapon:  None 

11.  Storogo  RoqUirod:  Total  Storage  required  is  3481g  Bytes, 

12.  Subroutine  User:  US04A 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  TSYS 

2.  Purpose:  To  output  as  a  format  matrix  system  constants 
needed  outside  of  the  USER04  module. 


3.  Equations  and  Procedures:  The  array  NMD  containing 
system  constants  generated  in  the  input  phase  of  the 
USER04  module  is  passed  to  subroutine  TSYS  by  subroutine 
USER04A.  These  constants  are  then  converted  to  floating 
point  variables  and  outputs  a  matrix  with  2  columns  to 
the  format  system. 

The  constants  that  are  output  are  as  follows  in  their 
respective  order: 

NDIR  -  number  of  directions 

NDEG  -  number  of  types  of  degrees  of  freedom 

NREF  -  Highest  reference  node  in  element  connections 

NMDB  -  the  order  of  the  reduced  system  *  NMDBl+NMDB? 

NMDBO  -  the  number  of  zero  boundary  conditions 

NMDB1  -  The  number  of  ones 

NMDB2  -  the  number  of  twos 

NMDBO 1  -  the  number  of  zeros  plus  ones 

NMDB 12  -  the  number  of  ones  plus  twos 

NTYPE  -  code  for  element  degrees  of  freedom 

NTYPE  «  0  for  3  types  of  D.O.F. 

NTYPE  »  1  for  1  or  2  types  of  D.O.F. 

NSYS  -  the  total  number  of  system  degrees  of  freedom 

equals  NDIR*NDEG*NREF 

NE1EM  -  the  number  of  elements  in  the  analyses 

NL  -  the  number  of  external  load  conditions  in  the 

analysis 

4.  Input  Arguments: 


NMD 

NAMOUT 

NSET 

NREF 

DINF0 


DINF0(1) 
DINF0H2) 
DINF0  3 
DINF0  4 
DINF0  5) 
DINF0(6 
DINF0(7) 


array  of  system  constants 

Array  containing  the  name  of  the  format  matrix 

logical  unit  number  matrix  is  to  be  written  on 

highest  reference  node  in  element  connections 

array  containing  dynamics  information  for 

eigen  value  analysis 

the  number  of  eigen  values  requested 

the  convergence  criteria 

the  maximum  number  of  iterations 

control  for  debug  print 

first  normalizing  element  for  print 

second  normalizing  element  for  print 

control  for  guess  vector  iterations  start 
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5.  Output  Arguments: 

IHONT  -  contains  harmonic  data 

6.  Error  Returns:  None 

7.  Calling  Sequence:  T3 YS( NMD, NAMOUT,NSET,NREF, IHONT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  NSET 

10.  Scratch  Tapes:  None 

11.  Subroutine  User:  US04A 

12.  Subroutine  Required:  EUTL5*EUTL6 

13.  Remarks:  Note  that  these  constants  have  been  converted  to 
floating  point  numbers 


1.  Subroutine  Name:  US04B 


2.  Purpose:  Control  Phase  Two  and  Phase  Three  operations 
(element  matrix  generation  and  element  matrix  output, 
respectively) . 

3.  Equations  and  Procedures:  System  control  information 
is  extracted  from  the  array  KNMD.  Scratch  units  are 
assigned  from  the  array  ISSPEC.  If  input  displacements 
are  present  then  subroutine  DEFLEX  is  called  to  record 
the  input  displacements  on  scratch  unit  NTAPE4.  If  the 
interpreted  input  matrix  position  is  non-blank  then 
subroutine  ININT  is  called  to  generate  input  tapes  NTAPE1 
and  NTAPE3.  Subroutine  FELEM  is  called  to  control  the 
generation  of  the  element  matrices.  And,  finally,  sub¬ 
routine  OUTMAT  is  called  to  place  the  generated  matrices 
into  the  Format  System. 

4 .  Input  Arguments : 

NUMOT  :  Number  of  output  matrices 
NAMOUT  :  Array  containing  names  of  output  matrices 
IOSPEC  :  Array  containing  unit  specifications 
for  output  matrices 
NUMIN  :  Number  o*  input  matrices 
NAMIN  :  Array  containing  names  of  input  matrices 
INSPEC  :  Array  containing  unit  specification  for 
input  matrices 

NUMSR  :  Number  of  available  scratch  units 
ISSPEC  :  Array  containing  scratch  unit  specifications 
NUMSC  :  Number  of  scalars 

SCALAR  :  Array  containing  scalars 

NWORKR  :  Number  of  available  storages  in  work  area 
WORK  :  Work  area 

IPRINT  :  System  print  control 

KNMD  :  System  control  information 

MASTER  :  Array  containing  input/output  cross-checking 
codes 

NUMAST  :  Length  of  MASTER 

NUMK  :  Length  of  KNMD 

5.  Output  Arguments: 

ERROR  :  Logical  variable  indicating  error  condition 

6.  Error  Return:  If  an  error  is  detected  in  element  matrix 
generation  or  in  element  matrix  output  then  ERROR  is  set 
to  TRUE  and-  control  is  returned  to  the  calling  program. 


7.  Calling  Sequence:  Call  US04B 

(NUMOT,  NAMOUT,  IOSREC,  NUMIN,  NAMIN,  INSEEC,  NUMSR, 
ISSPEC,  NUMSC,  SCALAR,  ERROR,  NWORKR,  WORK,  XPRINT, 
KNMD,  MASTER,  NUMAST,  NUMK) 

8.  Input  Tapes: 

NTAPE1  :  Contains  system  control  information 
NTAFE3  :  Contains  interpreted  element  input 


9.  Output  Tapes: 

IOSPEC(l,6) 

I0SPEC(1,7) 
IOSPEC(l,8) 
IOSPEC(l,9) 
IOSPEC(l, 10) 

IOSPEC(l,ll) 

K)SPEC(1,12) 

10.  Scratch  Tape: 


:  Reserved  for  assembly  cransformation 
matrix 

:  Reserved  for  element  stiffness  matrices 
:  Reserved  for  element  load  matrices 
:  Reserved  for  element  stress  matrices 
:  Reserved  for  element  thermal  stress 
matrices 

:  Reserved  for  element  incremental 
stiffness  matrices 

:  Reserved  for  element  mass  matrices 


NTAPE2  ;  Contains  element  generated  matrices 

in  compact  form 

NTAPE4  ;  Contains  input  displacements,  if 

present 

11.  Storage  Required:  Total  storage  required  is  7D81g  Byte3. 

12.  Subroutine  User:  US04 


13 .  Subroutines  Required : 

NTEST 

ININT 

DEFLEX 

FELEM 

OUTMAT 


l4 .  Remarks :  None 
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1.  Subroutine  Name:  ININT 

2.  Purpose:  Restore  data  from  interpreted  input  matrix 

3.  Equations  and  Procedures:  Subroutine  EUTL3  is  called 
to  .locate  the  input  matrix.  The  first  column  of  the 
matrix  contains  system  control  information  and  is  read 
into  KNMD.  Columns  two  and  three  contain  fuither  system 
information  and  are  recorded  as  the  first  two  records 

on  NTAPS1.  Column  four  and  all  succeeding  columns  contain 
element  generation  input  data  and  are  recorded  on  NTAFE3. 

4.  Input  Arguments: 

NAMIN  :  Array  containing  input  matrix  name 
INSPEC  :  Array  containing  unit  specifications 
for  input  matrix 

NTAPE1  :  Unit  reserved  for  system  control  information 
NTAPE3  :  Unit  reserved  for  element  generation  input  data 

KNMD  :  Array  reserved  for  system  control  information 

IWORK  :  Work  storage  area 

NUMK  :  Length  of  KNMD 

5.  Output  Arguments: 

IER  :  Logical  variable  Indicating  error  condition 

6.  Error  Returns:  If  the  input  matrix  cannot  be  located,  or 
a  word  count  error  occurs  for  columns  one  or  four,  or  the 
matrix  trailer  record  is  encountered  unexpectedly,  then 
IER  Is  set  to  .TRUE.. 

7.  Calling  Sequence: 

(NAMIN,  INSPEC,  NTAPE1,  NTAFE3,  .NMD,  IWORK,  NUMK,  IER) 

8.  Input  Tapes: 

INSPEC (1)  :  Unit  containing  interpreted  input  matrix 

9.  Output  Tapes: 

NTAPE1  :  Unit  reserved  for  system  control  information 

NTAPE3  :  Unit  reserved  for  element  generation  input 

data 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  Is  912.^  Bytes. 
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12.  Subroutine  User:  US04B 

13.  Subroutines  Required:  EUTL.3 

14.  Remarks:  None 


1.  Subroutine  Name:  DEFLEX 


2.  Purpose:  Sort  input  displacement  matrix  into  separate 
element  input  sections 


3.  Equations  and  Procedures:  The  input  displacements  for 
the  system  are  read  into  the  IWORK  array  and  restored 
at  the  end  of  the  IWORK  array.  For  each  element,  the 
following  procedure  is  invoked:  the  element  generation 
input  data  is  read  from  scratch  unit  NTAPE3;  the  array 
containing  the  element  definition  points  is  extracted; 
the  input  displacements  corresponding  to  these  points 
are  selected  from  the  system  input  displacements  and 
written  on  scratch  unit  NTAPE4. 

4,  Input  Arguments: 


NSYS 

NAMIN 

INSPEC 

NTAPE3 

NTAPE4 

IWORK 

NWORK 

MAXNI1 


:  Total  degrees  of  freedom  in  system 
:  Array  containing  input  matrix  name 
:  Array  containing  unit  specifications 
for  input  matrix 

:  Unit  containing  element  generation  input 
:  Unit  reserved  for  element  input  displacements 
:  Work  storage  area 
:  Length  of  IWORK 

:  Maximum  length  of  record  on  NTAFE3 


5.  Output  Arguments: 


IER  :  Logical  variable  Indicating  error  condition 


6.  Error  Returns:  If  the  input  matrix  cannot  be  found, 
or  its  dimensions  are  not  NSYS  by  one  or  IWORK  does  not 
contain  sufficient  storage  locations  then  IER  is  set 
tc  .TRUE.. 


7.  Calling  Sequence: 

(NSYS,  NAMIN,  INSPEC,  NTAPE3,  NTAEE4,  IWORK,  NWORXR, 

MAXNI1,  IER) 

8.  Input  Tapes: 

NTAPE3  :  Unit  containing  element  generation  input  data 
INSFEC(l):  Unit  containing  system  input  displacement  matrix 

9.  Output  Tapes: 

NTAPE4  :  Unit  reserved  for  element  input  displacements 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  AD^g  Bytes. 

12.  Subroutine  User:  US04B 

13.  Subroutines  Required: 

EUTL3 

EUTL9 

14.  Remarks:  None 
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1.  Subroutine  Name:  FELEM 

2.  Purpose:  Set  element  matrix  generation  controls  and 
Initiate  matrix  generation. 

3.  Equations  and  Procedures:  Logical  unit  definitions  are 
assigned  to  their  structural  system  functions.  An  array, 
IWORK,  is  ^served  for  storage  of  generation  controls 
and  system  information.  The  generation  controls  are 
determined  hi'  examining  the  output  matrix  names  and  the 
system  information  is  retrieved  from  unit  NTAPE1.  Sub¬ 
routine  SQUISH  is  called  to  compute  matrix  suppression 
controls.  The  number  of  elements  is  read  from  unit  NTAPE3 
and  subroutine  ELPLUG,  which  selects  the  correct  element 
type,  is  called  for  each  element. 

4 .  Input  Arguments : 

KP  :  Not  used 

NTAPE1  :  Logical  unit  containing  system  control 

information 

NTAPE2  :  Logical  unit  reserved  for  generated  element 
matrices 

NTAPE3  :  Logical  unit  containing  interpreted  element 
input 

NORDM  :  Maximum  element  degrees  of  freedom 

NRSELM  :  Maximum  element  stress  order 

NOINKM  :  Maximum  storage  required  for  element  stiffness 

matrix 

NIAM  :  Maximum  storage  required  for  element  matrix 
record  on  NTAEE2 

NTAPE4  :  Logical  unit  containing  input  displacements, 
if  present 

5.  Output  Arguments: 

ERROR  :  Logical  variable  Indicating  error  condition 

6.  Error  Returns:  If  an  error  occurs  in  generation  of  element 
matrices  then  ERROR  is  set  to  .TRUE,  and  control  is 
returned  to  the  calling  program. 

7.  Calling  Sequence:  Call  FELEM 

(KP,  NTAPE1,  NTAPE2,  NTAPE3,  NORDM,  NRSELM,  NOINKM, 

NIAM,  ERROR,  NTAPE4 ) 

8.  Input  Tapes: 

NTAPE1  ;  Contains  system  control  information 
NTAPE3  :  Contains  interpreted  element  input 
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9.  Output  Tapes: 

NTAPE2  :  Reserved  for  compact  storage  of  element 
generated  matrices 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  508.^  Bytes. 

12.  Subroutine  User:  US04B 

13.  Subroutines  Required:  ELPLUG,  SQUISH 

14.  Remarks:  None 


1.  Subroutine  Name:  SQUISH 


2.  Purpose:  Set  matrix  suppression  codes  for  element 
generation  phase 

3.  Equations  and  Procedures:  The  indicators  are  initially- 
set  to  zero,  signifying  suppression  is  desired.  Sub¬ 
routine  NTEST  is  called  to  examine  the  output  matrix 
names  for  suppression  selections.  For  each  non-suppressed 
matrix  position  encountered  the  corresponding  indicator 

is  reset  to  one. 


4.  Input  Arguments: 


NAMOUT  :  Array  containing  matrix  names 
NUMOT  ;  Number  of  output  matrices 

5.  Output  Arguments: 


KK 

KF 

KS 

KN 

KM 

KDS 

KDV 

KTS 


:  Suppression  indicator  for  element  stiffness 
matrices 

:  Suppression  indicator  for  element  load  matrices 

:  Suppression  indicator  for  element  stress 
matrices 

:  Suppression  indicator  for  element  incremental 
stiffness  matrices 

:  Suppression  indicator  for  element  mass  matrices 

:  Suppression  indicator  for  element  structural 
damping  matrices 

:  Suppression  indicator  for  element  viscous 
damping  matrices 

:  Suppression  indicator  for  element  thermal 
stress  matrices 


6.  Error  Returns:  None 


7.  Calling  Sequence: 


(NAMOUT,  KK,  KF,  KS,  KN,  KM,V  KDS,  KDV,  KTS,  NUMOT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  -Scratch  Tapes:  None 
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Subroutine  Name :  ELPLUG 


2.  Purpose:  Select  proper  element  type  to  generate 
requested  element  matrices. 

3.  Equations  and  Procedures:  Subroutine  REC1  is  called 

to  obtain  the  interpreted  element  input.  If  input  dis¬ 
placements  were  present  then  the  values  are  retrieved 
from  unit  NTAPE4.  Included  in  the  interpreted  element 
input  is  the  element  type  code  number  (plug  number). 

From  this  data  the  proper  plug  subroutine  is  called  and 
the  requested  element  matrices  are  generated.  If  the  plug 
number  is  five,  six  or  fourteen  the  grid  point  axes 
transformations  are  then  applied.  If  the  plug  number 
was  one,  two  or  seven  then  grid  point  axes  transform¬ 
ations  were  applied  inside  the  plug.  Subroutines  REC3 
and  REC4  are  called  to  write  as  external  units  element 
control  data  and  the  generated  element  matrices, 
respectively.  Finally,  if  an  element  matrix  print  has 
been  l’equested  then  subroutine  ELPRT  is  called  to 
perform  the  printing. 

There  is  only  one  exception  to  the  above  procedure. 

If  the  option  to  reppac  element  matrices  has  been 
selected  (IP  =  -2)..  then  the  plug  subroutine  is  bypassed 
and  element  matrices  from  the  previous  element  are 
written  again  by  REC3  and  REC4, 

4.  Input  Arguments:  The  input  arguments  contained  in  JWORK 
are: 


JW0RK(1)-IEL 

JW0RK(2)~ITAPE 

JW0RK(3)-KK 

JW0RK(4)-KF 

JW0RK(5)-KS 

JWORK (6) -KM 

JW0KK(7)”KDS 

JW0RK(8)-KDV 

JW0RK(9)-KN 

JWORK ( II )-NMDB 
JWORK ( 12 J-NDIR 
JWORK ( 13 )-NDEG 

JWORK ( 14 J-ICQNT 


Element  generation  sequence 
number  (IEL  =  1,2,3,  .  .  .  ,  NELEM) 
Indicator  controlling  writing  of 
matrices  on  external  unit 
Element  stiffness  matrix  suppression 
control 

Element  load  matrix  suppression 
control 

Element  stress  matrix  suppression 
control 

Element  mass  matrix  suppression 

control 

Not  used 

Not  used 

Element  incremental  stiffness  matrix 
suppression  control 
Not  used 

Number  of  directions  per  grid  point 
Number  of  solution  degrees  of 
freedom  per  grid  point 
Grid  point  axes  transformation 
indicator 
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JWORK ( 15 )-NTAPE2 

JWORK(l6)-NTAPE3 

JWORK (l8)-ILP 
JW0RK(19)-IPL 
JWORK ( 20 ) -NTAPE4 

JW0RK(21)-INDISP 


:  Unit  number  reserved  for  generated 
element  matrices 

:  Unit  number  containing  interpreted 
element  input 

:  Internal  element  type  code 
:  Input  element  type  code 
:  Unit  number  containing  input  dis¬ 
placement,  if  present 
:  Variable  indicating  presence  of 
input  displacements 


Other  input  arguments  are: 


NUMOT  :  Number  of  output  matrices 

NAMOUT  :  Array  containing  output  matrices  names 


5.  Output  Arguments:  Input  and  output  arguments  are  contained 
in  the  array  JWORK.  The  output  arguments  contained  in 
JWORK  are : 


JWORK ( 10 )-N0RD 
JWORK ( 17 J-NIAM 

JWORK ( 20 )-NERR 


Element  degrees  of  freedom 
Maximum  number  of  storages  required 
to  write  a  record  on  unit  NTAPE2 
Returning  error  code, 
if  NERR  is  zero  then  no  error  has 
occurred, 

if  NERR  is  one  then  element  type  code 
number  is  incorrect, 
if  NERR  is  two  then  the  number  of 
element  defining  points  is  incorrect, 
if  NERR  is  three  then  the  special 
element  input  is  incorrect,  and 
if  NERR  is  four  then  the  number  of 
element  degrees  of  freedom  is 
incorrect. 


6.  Error  Returns:  If  NERROR  is  not  zero  upon  return  from 
ELPLUG,  then  an  error  ha3  occurred. 


7.  Calling  Sequence:  Call  ELPLUG  (JWORK,  NUMOT,  NAMOUT) 

8.  Input  Tape: 

NTAPE3  :  Unit  containing  interpreted  element 

input 

9.  Output  Tape: 


NTAPE2 


:  Unit  reserved  for  generated  element 
matrices 


10.  Scratch  Tapes:  None 
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11.  Subroutine  User:  FELEM 

12.  Subroutines  Required: 

REC1 

PLUG1 

PLUG2 

PLUG5 

PLUG6 

PLUG  7 

PLUG14 

AXTRA3 

AXTRA2 

AXTRA1 

REG  3 

REC4 

ELPRT 

HTCO 

PLUG25 

PLUG10 

PLUG13 

PLUG23 

PLUG20 

PLUG26 

13.  Remarks:  Storage  for  the  generated  element  matrices  and 
work  areas  required  by  ELPLUG  is  allocated  by  equivalenclng 
into  the  blank  common  work  area  starting  at  location  1001 
and  extending  to  location  6000.  Work  storage  for  the 
various  element  types  is  allocated  by  equivalending  into 
the  blank  common  work  area  at  location  oOQl. 
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1.  Subroutine  Name:  REC3 


2.  Purpose:  Write  or  read  element  control  information  tape 
records . 

3.  Equations  and  Procedures:  The  decision  to  read  or  write 
the  record  is  determined  by  examining  the  input  variable 
IOPT  in  the  following  manner: 

if  IOPT  -s  1  the  record  is  read 
if  IOPT  2:  2  the  record  is  written 

4.  Input  Arguments:  (if  IOPT 2: 2) 

IOPT :  Read/write  indicator 

K  :  Fortran  logical,  unit  number 

NI3 :  Number  of  words  in  record  (excluding  NI3) 

JEL  s  Element  number 

IPL  '  Element  type  code  number  (plug  number) 

NLIST J  Element  order  (number  of  degrees  of  freedom 

per  point  *  number  of  points) 

LISTEL  :  Vector  containing  boundary  condition  information 

for  element 

NIA*.  Not  used  (set  equal  to  one) 

IAKEL  :  Not  used 

5.  Output  Arguments:  (if  IOPT  1) 

Given  the  proper  value  of  IOPT,  all  of  the  above  Input 
arguments  will  be  output  arguments  with  the  exception  of 
IOPT  and  K,  which  are  always  input  arguments  . 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  REC3  (IOPT,  K,  NI3,  JEL,  IPL,  NLIST,  LISTEL,  NIA,  AKEL) 

8.  Input  Tape:  If  I0PT<1,  then  K  is  an  input  tape. 

9.  Output  Tape:  If  I0PT2  2,  then  K  is  an  output  tape. 

10.  Scratch  Tape:  None 

11.  Storage  Required:  Total  storage  required  is  368^  Bytes. 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  REC^ 

2.  Purpose:  Read  or  write  generated  element  matrices  records. 

3.  Equations  arid  Procedures:  The  decision  to  read  or  write 
the  record  is  determined  by  examining  the  input  variable 
IOPT  in  the  following  manner: 

if  10PT  <1  then  a  record  is  read 
if  I0PTJ&2  then  a  record  is  written 


Input  Arguments:  (when  I0PT>2) 

IOPT: 

Read/write  indicator 

K: 

Fortran  logical  unit  number 

NOINK: 

Number  of  storages  required  for  stiffness  and 
incremental  stiffness  matrices 

MELT: 

Element  stiffness  matrix 

NOKD: 

Number  of  storages  required  for  element 
matrix 

loads 

FTEL: 

Element  loads  matrix 

NNO: 

Number  of  element  defining  points  (node  points) 

NODES: 

Grid  point  numbers  defining  element 

NSEL: 

Number  of  storages  required  for  element 
matrix 

stress 

NRSEL : 

Number  of  rows  in  element  stress  and  thermal 
stress  matrices,  also  number  of  storages  required 
for  element  thermal  stress  matrix 

SEL: 

Element  stress  matrix 

SZALEL: 

Element  thermal  stress  matrix 

ANEL: 

Element  incremental  stiffness  matrix 

FNEL: 

Not  used 

NMASS: 

Number  of  storages  required  for  element 
matrix 

mass 

AMASS: 

Element  mass  matrix 

NDMPV : 

Number  of  storages  required  for  element 
damping  matrix 

viscous 

DAMPV: 

Element  viscous  damping  matrix 

NDMPS : 

Number  of  storages  required  for  element 
damping  matrix 

structural 

DAMPS: 

Element  structural  damping  matrix 
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5.  Output  Arguments:  (when  IOPT  SI) 

Nl4  -  number  of  words  contained  in  record  (excluding  Nl4) 
All  of  the  above  input  arguments  are  output  arguments  given 
the  correct  value  of  IOPT  except  for  IOPT  and  K  which  are 
always  input  arguments. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  REC4  (IOPT,  K,  Nl4,  NOINK,  AKELT,  NORD,  .VTEL,  NNO, 
NODES,  NSEL,  NRSEL,  SEL,  S2ALEL,  ANEL,  FNEL,  NKASS,  AMASS, 
NDMPV,  DAMPV,  NDMPS,  DAMPS) 

8.  Input  Tape:  If  IOPT  SI  then  K  is  an  input  unit. 

9.  Output  Tape:  If  I0PT2t2  then  K  is  an  output  unit. 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  850^  Bytes. 

12.  Subroutine  User:  EL PLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  name:  MINV 

2.  Purpose:  Invert  a  matrix. 

3.  Equations  and  Procedures:  The  standard  Gauss-Jordan  Method 

is  used  in  which  the  inverted  matrix  is  stored  back  on  itself. 

4 .  Input  Arguments : 

A:  Matrix  to  be  inverted 

N :  Order  of  matrix 

D:  Determinant  of  matrix 

L:  Work  vector  of  length  N 

M:  Work  vector  of  length  N 

5.  Output  Arguments:  A  -  Contains  the  inverted  matrix 

6.  Error  Returns:  If  D  =  0,  matrix  is  singular. 

7.  Calling  Sequence:  CALL  MINV  (A,  N,  D,  L.  M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  8l81g  Bytes. 

12.  Subroutine  User:  TRAIC,  NEWFT,  PLUG1,  PTBM,  PTBF,  MATPR,  NEWFT1 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1 .  Subroutine  Name :  AXTRA2 


2 .  Purpose ;  Apply  grid  point  axes  transformation  by  post¬ 
multiplication  using  either  the  actual  transformation 
matrix  or  its  transpose . 


3. 


4. 


Equations  and  Procedures: 

Gmout]  =  M  Ogpa]  or  [Mouil  =  [Mit{]  IgpaJ 


is  the  input  element  matrix, 

is  the  element  grid  point  axes  trans¬ 
formation  matrix, 

is  the  output  transformed  element  matrix. 


£W]is  storeci  in  ^e  sarae  location  as  M.^,  therefore, 

the  input  element  matrix  is  lost  once  the  multiplication 
has  been  effected .  Advantage  is  taken,  during  multiplica¬ 
tion,  of  the  fact  that  [^Gp3  is  structured  as  a  set  of 

(3x3)  or  (2x2)  matrices  with  main  diagonal  positions 
lying  on  the  main  diagonal  of  [|qpA]  • 


Input  Arguments: 


GPAXEL 

SEL 

NROW 

NNO 

NDEG 

NDIR 

I  PL 

ITRAN 


Element  grid  point  axes  transformation  matrix,|[£p^J 

Input  element  matrix  &L  J 
Number  of  rows  in  SEI7 
Number  of  element  node  points 
Number  of  degrees  of  freedom 
Number  of  directions 
Element  plug  number  _ 

Control  code,  if  ITRAN  =  0,  then  M0U7J 

if  ITRAN  *=  1,  then  !lou^ 


5 .  Output  Arguments : 

SEL  :  Output  transformed  element  matrix, [M0U^J 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  AXTRA2  (GPAXEL,  SEL,  NROW,  NNO,  NDEG,  NDIR,  IPL,  ITRAN) 

8 .  Input  Tapes :  None 

9 .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 
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11.  Storage  Required:  Total  Storage  required  is  Bytes. 

ROW  (3) 

ISAVE  '(3) 

12.  Subroutine  User:  ELPLUG,  PLUG?,  PLUG 2,  CK22,  CK11 

13.  Subroutine  Required:  None 

14 .  Remarks:  The  output  matrix  is  stored  in  the  input  matrix 
storage .  Grid  point  axes  transformation  is  not  applied 
to  the  rotation  terms  at  the  mid-points  of  the  quadri¬ 
lateral  thin  shell  and  the  triangular  thin  shell  elements . 


1.  Subroutine  Name:  MAD 

2.  Purpose:  To  evaluate  the  matrix  product  A  *  B  =  AN 

3.  Equations  &  Procedures: 

«nm  -  ?  Anj  ’  B  jm 

4 .  Input  Arguments : 

A:  Elements  of  HA]  matrix 

B:  Elements  cf  LBJ  matrix 

N:  Number  of  rows  in  [A]  matrix 

L:  Number  of  columns/rows  in  [A]  [Bjmatrix 

M:  Number  of  columns  in  [B]  matrix 

N1,M1:  Dimension  of  [A]  matrix 

N2,M2:  Dimension  of  LBJ  matrix 

5.  Output  Arguments: 

AN:  The  matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  MAB  (A,B,AN,N,L,M,N1,M1,N2,M2) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2F6^g  Bytes. 


12.  Subroutine  Users  Used  by  many  subroutines  within  the  MAGIC 
program 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  MSB 

2.  Purpose:  To  evaluate  the  matrix  product  of  a  symmetric - 
bottom  half  matrix  and  a  rectangular  matrix 

3.  Equations  &  Procedures: 

AN  =  Z  S_  * 

nm  e  ne  em 


4.  Input  Arguments: 


S:  Elements  of  p?1  matrix  (symmetric) 

B:  Elements  of  (BJ  matrix 

N:  Number  of  rows  in  the  [s] ,  ml  and  [Alfl  matrices  (order) 
M:  Number  of  columns  in  the  [B|  and  [AN]  matrices  (order) 

N1  and  Ml:  Dimensions  of  the  [b]  and  [AN]  matrices 

5.  Output  Arguments:  AN;  Matrix  product 


6.  Error  Returns:  None 


7. 

3. 


9. 


10. 


li. 


Calling  Sequence:  CALL  MSB  (S,B.AN,N,M,N1,M1) 

Input  Tapes :  None 
Output  Tapes :  None 
Scratch  Tapes :  None 

Storage  Required:  Total  Storage  required  is  312-^g  Bytes. 


12.  Subroutine  User:  Used  by  various  subroutines  within  the 
MAGIC  Program. 

13.  Subroutines  Required:  None 

14.  Remarks:  [S]  is  of  the  form 


S2  1  S2  2 

•  •  • 


S, 


W1  1 


SN12  SN1  N1 
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1.  Subroutine  Name:  BCB 


2.  Purpose:  To  evaluate  the  triple  product  of  the  transpose  of 
a  matrix  A,  a  symmetric  matrix  S  and  the  A  matrix. 


3. 


4. 


Equations  and  Procedures: 

r  v  t 

AN  =  <-  L  A  *  S  *  A 
mm  n  n  mn  nn  nm 


(See  remark  1) 


Input  Arguments: 


A:  The  elements  of  the  [A]  matrix 

SYM:  The  elements  of  the  [S]  matrix  (symmetric-bottom  half) 
ND,MD:  Dimensions  of  a  matrix 
N,M:  Order  of  A  matrix 

Nl:  Number  of  rows  to  be  deleted  in  multiplication 
SCAL:  Scalar  quantity 
T.ASSY:  (see  remark  2) 


5 .  Output  Arguments : 


AN:  Elements  of  the  matrix  AN  xvhich  is  the  final  product 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  BCB  (A,  SYM,  AN,  ND,  MD,  N,  M,  Nl,  SCAL,  IASSY) 

8 .  Input  Tapes :  None 

9.  Output  Tapes;  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  Is  5^2^  Bytes. 

12.  Subroutine  User:  Various  routines  within  MAGIC 


13.  Subroutines  Required:  None 

14.  Remarks: 

1.  In  the  summations,  the  n's  must  be  replaced  by  dummy 

subscripts,  running  from  1  to  n.  The  dummy  must  be  used 


n 

y 

n 

y 

) 

to  ensure  proper  summing. 

Lj 

r-l 
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2.  IASSY  controls  the  summation  procedure. 

If  IASSY  =  1,  AN  will  be  the  sum  of  the  calculated  AN 
and  all  previous  calculations  of  AN. 

If  IASSY  =  0,  AN  will  be  the  triple  product  for 
this  calculation. 


1.  Subroutine  Name;  MATB 


2.  Purpose:  Subroutine  to  evaluatr  che  matrix  product  of 
A  transpose  and  B. 

3.  Equations  and  Procedures: 

AN  =  L  A^  x- 
nm  e  en  em 

where 

rp 

A*  is  the  transpose  of  A., 
en  ne 

4.  Input  Arguments: 

A:  elements  of  [A]  matrix 
B:  elements  of  [Bj  matrix 
N:  number  of  rows  in  [A]  matrix  (order) 

L:  number  of  columns  in  {A]  matrix  (order) 

M:  number  of  rows  in  [b]  matrix  (order) 

N1,M1:  dimension  of  [A]  matrix 
N2,M2:  dimension  of  [b]  matrix 

5 .  Output  Arguments : 

AN:  elements  of  matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  MATB  (A,  B,  AN,  N,  L,  M,  Nl,  Ml, 

N2,  M2) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3061g  Bytes. 

12.  Subroutine  User:  Various  subroutines  in  MAGIC 


13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  SYMFRT 


2.  Purpose:  To  print  a  symmetric  matrix  as  output 

3.  Equations  and  Procedures:  Not  Applicable 

4.  Input  Arguments: 

SYM:  Elements  of  the  symmetric  matrix 
Nl:  Matrix  identification  number 

N2:  Dimension  of  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  SYMPRT  (SYM,  Nl,  N2) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  270l6  Bytes 

12.  Subroutine  User:  Various  subroutines  in  MAGIC  System 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


1.  Subroutine  Name:  L0C 

2.  Purpose:  Compute  a  vector  subscript  for  an  element  in  s 
matrix  of  specified  storage  mode 

3.  Equations  and  Procedures:  The  routine  determines  the  type 
of  matrix  and  computes  the  subscript  accordingly. 

4 .  Input  Arguments : 

I :  Row  number  of  element 

J :  Column  number  of  element 

N :  Number  of  rows  in  matrix 

M:  Number  of  columns  in  matrix 

MS:  Storage  mode  of  matrix 

0  General 

1  Symmetric  (Upper  Half) 

2  Diagonal 

5.  Output  Arguments:  IR  -  Resultant  vector  subscript 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  L0C  (I„  J,  IR,  N,  M,  MS) 

8.  Input  Tapes:  None 
9«  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2?8l6  Bytes. 

12.  Subroutine  User:  MPRD,  TPRD,  AXTRA3 

13.  Subroutines  Required:  None 
l4;  Remarks:  None 
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1.  Subroutine  Name:  ELTEST 

2.  Purpose:  Check  on  input  variables  (plug  number,  number  of 
nodes,  order  of  matrix',  for  a  specific  element. 

3.  Equations  &  Procedures:  Logical  "TP"  statement  is  used  to 
check  equivalence  of  variables  with  predefined  program  con¬ 
stants. 

4.  Input:  I PL  &  IPL1  -  plug  number  &  check  constant 

NNO  &  NN01  -  number  of  nodes  &  check  constant 
NORD  &  NORDl  -  order  of  matrix  &  check  constant 

5.  Output:  NERR  (error  return) 

6.  Error  Returns:  NERR  =  O' No  error 

NERR  =  1  Plug  number  incorrect 
NERR  =  2  Number  of  nodes  incorrect 
NERR  =  4  Order  of  matrix  incorrect 


7. 

Calling  Sequence:  CALL  ELTEST  (IPL,  IPL1, 

IP1,  NORD,  NORDl,  NERR) 

NNO,  NN01,  IP, 

8. 

Input  Tapes:  None 

9. 

Output  Tapes :  None 

10. 

Scratch  Tapes:  None 

11. 

Storage:  Total  storage  required  is  27A1g 

Bytes. 

12. 

Subroutine  User:  All  plugs 

13. 

Subroutines  required:  None 

14. 

Remarks :  None 
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1.  Subroutine  Name:  HTCO 

2.  Purpose:  The  functions  of  this  subroutine  is  to  rearrange  the 

harmonic  number  and  the  harmonic  coefficients  for  Plug  25  to 
generate  the  element  stiffness  matrix,  the  pressure  load  and  the 
thermal  load. 

3.  Equations  and  Procedures: 

a)  Check  the  load  control  variable  to  determine  type  of  loading 
for  analysis 

b)  Rearrange  the  harmonic  number  and  the  harmonic  coefficients. 

4.  Input  Arguments: 

IRT  -  Load  control  variable 
NL  -  Harmonic  number  for  the  pressure  load 
NLL  -  Number  of  the  harmonic  for  this  analysis 
JAY  -  Harmonic  numbers  array  for  the  pressure  load 
PRZO  -  Harmonic  coefficients  array  for  the  pressure  load 
NLT  -  Harmonic  number  for  the  thermal  load 
JAY  -  Harmonic  number  array  for  the  thermal  load 
PRZT  -  Harmonic  coefficients  array  for  the  thermal  load 
JA  -  Harmonic  number  constant  for  the  pressure  load 
PR  -  Harmonic  coefficient  constant  for  the  pressure  load  in  radial 
direction 

PZ  -  Harmonic  coefficient  constant  for  the  pressure  load  in  the 

axial  direction  i 

I 

ST  -  Harmonic  number  constant  for  the  thermal  load  j 

PRT  -  Harmonic  coefficient  constant  for  the  thermal  load  in  the  j 

radial  direction 

IAI  -  Harmonic  loop  control  value  { 

» 

5.  Output  Arguments:  j 

JA  -  Harmonic  number  constant  for  pressure  load  \ 

PR  -  Harmonic  coefficient  constant  for  pressure  load  in  radial  direction  ! 

PZ  -  Harmonic  coefficient  constant  for  the  pressure  load  in  the  j 

axial  direction  j 

JT  -  Harmonic  number  constant  for  the  thermal  load  t 

PRT  -  Harmonic  coefficient  constant  for  the  thermal  load  in  the  1 

axial  direction  J 

PZT  -  Harmonic  coefficient  constant  for  the  thermal  load  in  the 

radial  direction  , 


8.235 


I 


6.  Error  Returns:  None 

7.  Calling  Sequence: 

( IRT , NL , NLL , J AY , PRZO , NLT , JAT , PRZT , IIRT , JA , PR , PZ , JT , PRT , PZT , IAI ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

12.  Subroutine  User:  Elplug 
13*  Subroutine  Required:  None 


1.  Subroutine  Name:  PLUG1 

2.  Purpose:  To  formulate  the  element  matrices  for  a  quadri¬ 
lateral  plate 

3.  Equations  and  Procedures:  The  following  sequence  of  op¬ 
erations  are  necessary  in  order  to  obtain  the  element 
matrices.  Equations  are  found  in  Volume  I. 

A.  The  material  and  geometric  properties  are  obtained  from 
MAT  and  EXTRA  respectively. 

B.  From  the  Appendix  of  reference  1,  the  corner  points 
defining  the  element  are  redefined  to  local  oblique 
system  by  TRAOBQ.  Provision  is  made  to  also  account 
for  different  material  axis  orientation  (due  to  ortho- 
tropy)  or  for  a  specific  input  stress  direction. 

C.  The  following  operations  are  performed  as  formulated  in 
the  appropriate  equations; 

(1)  Call  NEWFT  to  form  matrices  necessary  for 
thermal  loadings, 

(2)  Call  CDELPQ  to  determine  integrals  of  each  zone 
of  the  quadrilateral, 

(3)  The  material  property  matrix  dependent  upon  the 
stress-strain  input  of  EXTRA  (4)  is  coded  as  EM, 

(4)  The  strain,  stress  and  displacement  transformations 
are  coded  as  TES,  TESS  and  TW  respectively, 

(5)  Compute  [EG]  =  [TE$]T  [EM]  [TE$]  , 

(6)  Store  transpose  of  [TE$$]  into  [T$AVE]  ,  [T$AVE]  is 
then  stored  back  into[TE$$J  and  inverted, 

(7)  If  print  option  eauals  -1,  call  P1PRTA  for  print 
of  intermediate  computations, 

(8)  Initialize  the  thermal  load,  pressure,  thermal 
stress,  stress  and  mass  matrices  to  zero. 


D.  Membrane  computations  are  performed  in  the  following 
manner: 

1.  Call  CK11  to  formulate  the  [K21S]  element  stiff¬ 
ness  matrix  in  global  system, 

2.  Formulate  the  transformation  from  local  to  global 
system  by  forming  the  product  [TAOM]  [TOGM]  [TGM]  = 
[TMS]  , 
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3.  Equations  and  Procedures;  Continued 


(3) t  If  mass  matrix  is  requested  then 

a.  Call  CMMASS  to  form  the  membrane  mass  matrix 
in  local  systems  (CMM), 

b.  The  mass  matrix  is  then  transformed  to  global 
systems  as  [AMASS]  =  [TGd*M]T  [CMM]  [TGSM]  . 

(4)  If  stress  and/or  force  matrices  are  requested  then 

a.  Cali  C$TM  to  formulate  the  membrane  stress 
matrix  [s]  , 

b.  Call  CFMTS  to  formulate  the  membrane  thermal 
force  and  stress  matrices. 

(5)  If  print  controls  equal  -1,  call  FRT1  to  print 

out  intermediate  matrices. 


E.  Flexural  computations  are  then  performed  in  the 
following  manner; 


(1)  Call  CK22  to  add  the  flexural  contributions  to 
the  stiffness  matrix  [K21S]  , 


(2)  Apply  transformation  to  global  system  by  perform- 


Appiy  transformation  to  global  s; 
ing  [TFM]  =  [TGAMB]  [TOGS]  [TGRB]  , 


(3)  If  stress  and/or  force  matrices  are  requested  then 

a.  If  input  pressure  not  equal  to  0,  call  CFP 
to  formulate  the  pressure  matrix, 

b.  The  flexural  contributions  to  the  stress 
matrix  are  formulated  by  calling  C$TF, 

c.  If  flexural  input  temperature  not  equal  to 
zero,  calls  CFFTS  to  formulate  the  thermal 
force  and  stress  matrices. 


(4)  If  mass  is  requested  then 

a.  Call  CFMASS  to  form  the  membrane  mass  matrix 
in  local  system  [CMF] , 

b.  The  mass  matrix  is  transformed  bo  global  sys¬ 
tem  as  [AMASS]  =  [TGFSjT  [CMF]  [TGFS] 

(5)  Again  if  the  print  option  is  -1,  intermediate 
element  computation  printout  is  obtained  from  PRT1 


4.  Input  Arguments: 


Plug  number 
Number  of  nodes  (8) 

Coordinates  of  element  node  points 
Temperature  array  of  element  node  points 
Pressures  at  element  node  points 
Number  of  nodes 
Node  point  numbers 

Control  for  computation  of  matrices  (see  remarks) 
Grid  point  axes  transformations 
Array  containing  material  properties 
Array  containing  geometric  properties 

5 •  Output  Arguments : 

K21S  :  Stiffness  matrix 

FTEL  :  Element  force  matrix 

S  :  Stress  matrix 

SZALEL  :  Thermal  stress  matrix 

AMASS  :  Mass  matrix  for  dynamic  analysis 

6.  Error  Returns: 

a.  Standard  error  returns  by  ELPLUG  (NERR) 

b.  Sin <*  =  0  indicates  coordinate  input  data  error 

7.  Calling  Sequence: 

CALL  PLUG1  (IPL.  NNO,  XC,  YC,  ZC,  TEL,  PEL,  QS,  IP,  NORD, 
NERR,  NOINK,  K21S,  AN1,  FTEL,  S,  SZALEL,  AMASS,  DAMPV, 

DAMPS.  NRSEL,  NN,  NL,  NMASS,  NDMFV,  NDMPS,  NSEL,  KK,  KF,  K8, 
KTS, KM  ,  KDS,  KDV,  KN,  JUSEL,  EPS10N.  SIGZER,  MAT,  EXTRA, 
GPAXEL,  KLIR,  NDEG,  ICONT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  2916-^  Bytes. 

12.  Subroutine  User:  ELPLUG 


IPL 

NNO 

XC,YC,ZC 

TEL 

PEL 

NN 

NL 

KK,KN 

GPAXEL 

MAT 

EXTRA 


13.  Subroutines  Required: 


ELTEST  CSTM 

NEWFT  CFMTS 

CDELPQ  PRT1 

MINV  CK22 

BCB  CPP 

CK11  CSTP 

MABC  CPFTS 

CMMASS  CPMASS 

14 .  Remarks : 

The  following  is  a  list  of  control  indicators  for  PLUG1. 
For  all  indicators  shown  a  value  of  one  will  cause  the 
operation  to  be  performed  and  a  value  of  zero  will 
cause  the  operation  to  be  skipped. 

LT1  -  compute  membrane  contributions 

LT2  -  compute  flexural  contributions 

KK  -  compute  element  stiffness  matrix 

KP  -  compute  element  force  matrix 

(thermal  and/or  pressure) 

K8  -  compute  element  stress  matrix 

KTS  -  compute  element  thermal  stress  matrix 

KM  -  compute  element  mass  matrix 

KDS  -  not  used 

KDV  -  not  used 

KN  -  compute  element  incremental  stiffness  matrix 
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Subroutine  Name:  CC21 

2.  Purpose:  To  assemble  a  submatrix  into  an  assembled  matrix 

3.  Equations  and  Procedures:  None 

4 .  Input  Arguments : 

K  :  Control  on  positioning  of  elements  for  assembly 
NI  :  Constants  from  PLUG1 
C  :  elements  of  input  matrix 

5>  Output  Arguments: 

C21  -  elements  of  the  expanded  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  (K,  NI,  C,  C21) 

8.  Input  Tapes:  None 

9.  Output:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  NI(8,10),  C(l),  C21(105)  and  total 
storage  is  (145 )10 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  MABC 


2.  Purpose:  To  evaluate  the  triple  product  of 

[AN]  =  [A]  [B]  [C] 

3.  Equations  and  Procedures: 

a.  Each  row  of  the  [A]  matrix  is  multiplied  by  the  corres¬ 
ponding  column  of  the  [B]  matrix  and  stored  in  the 

[AM]  matrix  by  column. 

b.  Then  each  row  of  the  [AM]  matrix  is  multiplied  by  the 
corresponding  column  of  the  [c]  matrix  and  the  final 
product  stored  in  the  [AN]  matrix  by  column. 

4.  Input  Arguments: 


A: 

elements 

of 

[A" 

matrix 

B: 

elements 

of 

“B‘ 

matrix 

C  : 

elements 

of 

C 

matrix 

AM :  working  storage 

N  :  number  of  rows  in  A  matrix  ( order ) 

L:  number  of  rows  in  B  matrix  (order) 

K:  number  of  rows  in  [c] matrix  (order) 

M:  number  of  columns  in  03  matrix(order) 

Nl,  Ml:  dimension  of  [A] matrix 

N2,  M2;  dimension  of  A  matrix 

M3,  M3:  dimension  of  [c] matrix 

5.  Output  Arguments: 

AN :  Elements  of  triple  product  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence? 

(A,  B,  C,  AN,  AM,  N,  L,  K,  M,  Nl,  Ml,  N2,  M2,  N3,  M3) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  40Al6  Bytes. 
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12.  Subroutine  User:  general  subroutine  used  by  many  other 
subroutines 

13.  Subroutines  Required:  None 

14.  Remarks:  Standard  matrix  multiplication  routine ;  but 
caution  must  be  exercised  when  the  dimensions  and  orders 
of  input  and  output  matrices  are  different 
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1.  Subroutine  Name:  NEWFT 


2.  Purpose:  Generate  membrane  and  flexural  thermal  loads 
for  quadrilateral  thin  shell  in  local  coordinates 

3.  Equations  and  Procedures: 

rBCT]  =  [53  "1  [CT] 

LBM03  =  [BCT]  {TEMM} 

03FTJ  =  [BCU  (TEMF} 

where  [5]  and  [CT]  are  geometric  matrices  of  local 
coordinates 

{TEMM}  =  {TEL  (1,1)}  membrane  temperatures 

{TEMP}  =  {TEL  (1,2) }  flexural  temperatures 

4„  Input  Arguments: 


DELTM 

DELTF 

TEL 

RIB 

R2B 

R3B 

R4B 

IPRINT 

TZ 


Average  membrane  temperature 
Average  flexure  temperature 
Temperature  array  of  element 
Local  7  coordinate  of  node  1 

"  y  "  of  node  2 

"  X  "  of  node  3 

"  Y  "  of  node  4 

Print  option 

Initial  membrane  temperature 


5.  Output  Arguments: 


3MT  :  Membrane  thermal  load  in  local  coordinates 

BFT  :  Flexural  thermal  load  in  local  coordinates 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

(DELTM,  DELTF,  TEL,  RIB,  R2B,  R3B,  R4B,  BMT,  BFT,  IPRINT 
TZ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


11.  Storage  Required: 


f(3,3),bct(3,4),  01(3,4),  bmt(4,i).  bft(4,1),  temm(4), 
TEMF  (4),  TEL(12,2),  R1B(1),  R2B(1),  R3B(1),  r4B(1) 


Tobal  Storage  is  (22710). 

12.  Subroutine  User:  PEUG1 


13.  Subroutines  required:  MAB 

14.  Remarks:  a*  If  print  option  equals  -1,  intermediate 

computations  are  printed  out. 

b.  The  membrane  or  flexural  contribution  is 
by  passed  if  the  respective  thickness  is  0. 


i 

) 

i 


1 


i 

) 
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1.  Subroutine  Name:  CDELPQ 


2.  Purpose:  To  compute  the  integrals  from  equations  in 
documentation  for  PLUG1  in  Volume  I. 

3.  Equations  and  Procedures: 

DELPQ*5  =  Cx,  Yj  where  p  =  0,1, 2,3,4 

J  J  q  =  0,1,2, 3,4 

3  =  1,2, 3,5 

C  =  constant 

4.  Input  Arguments: 

AJ  -  x  distance  from  centroid  to  respective  node  point 
BJ  -  y  distance  from  centroid  to  respective  r.ode  point 

5.  Output  Arguments: 

DELPQ  -  table  of  integrals  for  the  4  zones  of  the  quadri¬ 
lateral 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  CDELPQ  (AJ,  EJ,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 


DELPQ  (4,5,5) 

AJ  (4) 

BJ  (4) 

Total  Storage  is  (24l)10. 

12.  Sub.  routine  User:  PLUG1 


13.  Subroutines  Required:  CHDEL1 

14 .  Remarks :  None 


1.  Subroutine  Name:  CHDEL1 

2.  Purpose:  To  rearrange  the  integrals  generated  by  CDELPQ 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  DELPQ  -  integrals  generated  by  CDELPQ 

5.  Output  Arguments:  DELPQ  -  rearranged  integrals 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  CHDELD1  (DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  DELPQ  (4,5,5) 

Total  Storage  is  (?0)10* 

12.  Subroutine  User:  CDELPQ 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1. 


Subroutine  Name :  P1PRTA 


2.  Purpose:  Print  variables  generated  by  PLUG1,  if  IPRINT 
equals  -1. 


3.  Equations  and  Procedures:  Not  applicable 


4.  Input  Arguments: 


EX,  EY 

MUXY 

GXY 

GAMMA 

ALPHAX,  ALPHAY 

TF,  TM 
RZB 

R24 

LAMDA 

R24BP 

THETA 

E 

TPRIME 

NL 

SINAL,  C0SAL 

SINA,  C0SA 
SING,  C0SG 
EM 

ALPHM 

C00RDL 

DELPQ 

ALPHG 

EG 

TES 

TV/ 


:  Youngs  modulus  in  X  and  Y  directions 
respectively 
:  Poisson's  Ratio 
:  Shear  modulus 
:  Material  angle 

:  Thermal  coefficients  of  expansion  in 
X  and  Y  directions 
:  Flexural  and  membrane  thickness 
:  Vector  normal  to  plane  of  quadrilateral 
element 

:  deviation  of  local  coordinates  between 
points  2  and  4  of  the  quadrilateral 
:  Coefficient  of  normal  vector  bo  that 
element  lies  in  a  plane 
:  Sum  of  the  inplane  vector  and  normal 
vector 

:  Angle  for  calculating  centroid  of  element 
:  Column  vector  colinear  with  local 
geometric  X,  Y  and  Z  system 
:  Transformation  matrix 
;  Node  point  numbers 

:  Sine  and  cosine  of  oblique  coordinate 
system 

:  Sine  and  cosine  for  stress  angles 
:  Sine  and  cosine  of  material  angle 
:  Coefficient  matrix  utilizing  Hook's  Law 
:  Matrix  containing  coefficients  of  thermal 
expansion 

:  local  coordinates 

:  table  of  integrals  for  the  4  zones  of  the 
quadrilateral 
:  Dummy 

:  E  matrix  transformed 

:  Strain  transformation  matrix 
:  Displacement  function  transformation 
matrix 


5.  Output  Arguments:  None 

6,  Error  Returns:  None 


/ 
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7.  Calling  Sequence: 


CALL  P1PRTA  (EX,  EY,  MUXY,  GXY,  GAMMA,  ALPHAX,  ALPHAY, 
TP,  TM,  RZB,  R2*+B,  LAMDA,  R24BP,  R0B, 

THETA,  E,  TPRIME,  NL,  SflNAL,  C0SAL,  SINA, 
H0SA,  SING,  C0SG,  EM,  ALPHM,  C00RD.L,  DELPQ. 
ALPHG,  EG,  TES,  TW) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  D381g  Bytes. 

12.  Subroutine  User:  PIDG1 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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Subroutine  Name:  CK11 


1 . 


2.  Purpose:  To  generate  the  membrane  stiffness  for  PLUG1, 
quadrilateral  thin  shell  element 

3.  Equations  and  Procedures:  The  following  sequence  of 
operations  takes  place  to  formulate  the  membrane  stiffness 
matrix: 


(1)  Call  CT1!  to  formulate  the  membrane  displacement 
coordinate  transformation  as  TAO . 

(2)  Call  f4ATl60  to  invert  the  above  matrix. 

(3)  Call  CTOGM  to  form  the  transformation  from  oblique  to 
geometric  coordinates  as  TOGM. 

(4)  Generate  the  transformation  matrix  from  geometric  to 
reference  system  coordinates  (TGRM)  by  calling  CTGRM . 

(5)  If  grid  point  axes  transformations  to  another  system 
other  than  global  are  to  formulated,  call  AXTRA2  to 
generate  the  new  TGRM  matrix. 

(6)  Generate  the  displacement  function  transformation  as  TU. 

(7)  Call  BCB  to  form  the  product 
[TU]t  [EG]  [TU]  =  [EO] 

This  matrix  is  then  multiplied  by  the  constant  T  x  SINA 
and  renamed  the  JPQ  matrix . 

(8)  Generate  the  membrane  stiffness  (C  matrix)  by  calling 
CC1 .  The  C  matrix  is  then  expanded  by  CC21  and  C21 . 

(9)  The  transformation  matrix  TAO  is  expanded  as  TAOM. 

(10)  Call  BCB  to  form  the  following  products: 

(a)  [K110]  =  [TAOM]  T  [Cll]  [TAOM] 

(b)  [K11G]  =  [TOGM]  T  [KUO]  [TOGM] 

(c)  [K21S]  =  [TGRM]  T  [KllGj  [TGRM] 

The  final  product,  [K21S],  is  the  desired  membrane 
stiffness  matrix . 

4 .  Input  Arguments : 


NDIR 

NDEG 

ICONT 

GPAXEL 
NNC 
NL 
EEZ 
AJ,  BJ 


:  Number  of  directions  of  movement  for  each 
grid  point,  control  needed  for  AXTRA2 
:  Number  of  degrees  of  freedom  for  each  grid 
point,  control  needed  for  AXTRA2 
:  Control  set  equal  to  1  if  grid  point  axes 
transformations  are  required  from  input  data 
:  The  grid  point  axis  transformation  matrix 
:  Number  of  grid  points  (8)  describing  the  element 
:  Array  containing  rhe  grid  point  numbers 
:  Input  on  element  data  card  for  eccentricity 
:  Local  X  and  7  coordinates  of  the  element 
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SINA,  COSA 


TPRIME 

IPRINT 

T 

LT1 

EG 

DELPQ 

NI 


:  Sine  and  cosine  of  the  angle  defined  by  the 
diagonals  of  the  element  between  grid  points 
1  and  2 

:  Transformation  matrix 
:  Print  option 
:  Membrane  thickness 

:  Control  set  equal  to  1  when  membrane  thickness 
is  not  zero 

:  Material  properties  matrix 
:  Table  of  integrals 
:  Array  for  assembly  purposes 


5  .  Output  Artuments : 


K21S 

EO 

TU  ^ 
TAO  ; 
TAOM  . 
TOGM  ! 
TGRM  ) 
K110  \ 
K11G 
Cll  > 

JPQ  i 

C21  ) 


:  Membrane  stiffness  matrix 
:  Material  properties  matrix 


:  Transformation  matrices  defined  in  item  3  above 


:  Intermediate  matrices  formed  and  defined  in 
item  3  above . 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

CALL  CK11,  (X21S,  NDIR,  NDEG,  ICONT,  GPAXEL,  NNO,  NL,  EEZ, 
AJ,  BJ,  SINA,  COSA,  TPRIME,  IPRINT,  T,  NI,  LT1,  EG, 
DELPQ,  TAO,  TAOM,  TOGM,  TGRM,  KUO,  K11G,  Cll,  .JPQ, 
C21,  TU,  EO,  TF$,  TMS,  C) 


8. 

Input  Tapes: 

None 

9. 

Output  lapes: 

None 

10. 

Scratch  Tapes: 

None 

11 . 

Storage  Required: 

NL  (8),  GPAXEL  (3,  3,  12 ),  AJ  (1),  BJ  (1) ,  TAO  (8 
TPRIME  (3,3) ,  EG  (10},  EO  (10),  6  (55),*  C21  (105) 

10),  TU  (3,  4),  Kilo  (136),  K11G  (210),  Cll  (105) 

(16,  16).  TOGM  (16,  20),  TGRM  (20,  48)  JFQ  (10),  TGRA 
(16,  43),  DELPQ  (4.  5,  5),  TFS  (16,  48),  TMS  (16,  48) 
Total  Storage  is  (464) ^ 


,  8) 

,  NI  (8. 
,  TAOM 
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12.  Subroutine  User i  PLUG1 
13-  Subroutines  Required: 


CT11  CTOGM  AXTRA2 

MATI60  CTGRM  BOB 

14  Remarks :  None 


CC1 

CC21 


1.  Subroutine  Name:  CT11 

2.  Purpose:  To  formulate  the  membrane  displacement  coordinate 
transformation  as  [TA$] 

3.  Equations  and  Procedures:  The  formulation  is  given  in  the 
documentation  for  FLUG1  in  Volume  I. 

4  .  Input  Arguments : 

AJ  :  Local  X  coordinates 

BJ  :  Local  Y  coordinates 

IPRINT  :  Print  indicator 

5.  Output  Arguments: 

TA0  :  Transformation  matrix 

6 .  Error  Returns :  Nona 

7.  Calling  Sequence:  CALL  CT11  (AJ,  BJ,  TA0,  IPRINT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10  .  Scratch  Tapes :  None 

11.  Storage  Required:  AJ  (1),  BJ  (1),  TAgf  (8,8) 

Total  Storage  Is  (227) 

12 .  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14.  Remarks:  If  IPRINT  equals  -1,  the  TAgf  matrix  is  printed. 
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1.  Subroutine  Name:  MAT160 

2.  Purpose:  Invert  the  TA0  matrix 

3-  Equations  and  Procedures:  None 

4.  Input  Arguments:  N  -  order  of  matrix  to  be  inverted 

A  -  to  be  inverted 

5.  Output  Arguments:  ISING  -  error  messages 

DETR  -  value  of  determinant 
A  -  contains  elements  of  the  inverted 
matrix 

6.  Error  Returns:  ISING  =  0  No  error 

ISING  =  1  Singular  matrix 

7.  Calling  Sequence: 

Call  MATl60(N,  A,  ISING,  DETR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  64^  Bytes. 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 
],4 .  Remarks :  None 


1.  Subroutine  Name:  CT0GM 

2.  Purpose:  To  formulate  the  transformation  matrix  from 
oblique  to  geometric  coordinates 

3.  Equations  and  Procedures:  See  writeup  for  PLUG1 
4  .  Input  Arguments : 

C0SA  :  Cosine  and  sine  of  the  angle  defined  by  the 
SINA  diagonals  of  the  element  between  gr.id  points 
1  and  2 

5 .  Output  Arguments : 

T0GM  :  Transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CT0GM  (C0SA,  $INA,  T0GM) 

8  .  Input  tapes :  None 

9.  Output  tapes:  None 

10  .  Scratch  Tapes :  None 

11 .  Storage  Required: 

T0GM  (16,20) 

Total  Storage  (67) 10 

12.  Subroutine  User;  CK11 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


1 .  Subroutine  Name :  CTGRM 

2 .  Purpose :  Formulate  the  transformation  from  geometric  to 
reference  system  coordinates 

3.  Equations  and  Procedures;  See  writeup  of  PLUG1, 

4.  Input  Arguments: 

NL  :  Node  point  numbers 

EEZ  :  Eccentricity  factor 

TRIME  :  Transformation  matrix  to  be  expanded 

5 .  Output  Arguments : 

TGRM  :  Transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence; 

CALL  CTGRM  (NL,  EEZ,  TFRIME,  TGRM) 

8 .  Input  tapes :  None 

9.  Output  tapes;  None 

10.  Scratch  tapes;  None 

11.  Storage  Required; 

NL  (1),  TPRIME  (3,3) ,  TGRM  (20,48), 

Total  Storage  is  (275)  10 

12.  Subroutine  User;  CK11 

13.  Subroutines  Required;  None 

14 .  Remarks ;  None 
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1.  Subroutine  Name:  CC1 

2.  Purpose:  Generate  the  bottom  half  of  the  membrane 
contribution  to  the  element  stiffness  matrix  for  the 
quadrilateral  element 

3.  Equations  and  Procedures:  Contained  in  documentation 
for  quadrilateral  element  in  Volume  I. 

4.  Input  Arguments: 

KI  :  Control  for  appropriate  computation 
JPQ  :  Matrix  containing  material  properties 
DELPQ  :  Table  of  integrals 

5.  Output  Arguments: 

C  :  Membrane  contribution  to  stiffness  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  C.VLL  CC1  (KI,  JPQ,  DELPQ,  C) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

DELPQ  (4,5,5),  C  (55),  JPQ  (10) 

Total  Storage  is  (666  )^. 

12.  Subroutine  User:  CK11 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  CMMASS 

2.  Purpose:  Generate  the  membrane  contribution  to  the 
mass  matrix  in  local  coordinates 

3.  Equations  and  Procedures:  Contained  in  documentation 
for  the  quadrilateral  element  in  Volume  I 

4.  Input  Arguments; 

T  :  Membrane  thickness 
D00  :  Area  of  each  zone  of  quadril.v'-.eral 

SINA  :  Sine  of  angle  defined  by  points  1  and  2  and 
the  diagonal  of  the  quadrilateral 
DENS  :  Density  of  the  plate  material 

5.  Output  Arguments; 

AMS  :  Membrane  mass  contribution 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CMMASS  (T,  D00,  SINA,  DENS,  AMS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2CAl6  Bytes. 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  CSTM 


2.  Purpose:  Evaluate  the  membrane  stress  matrix  in  local 
coordinates  for  the  quarila/teral  element 

3.  Equations  and  Procedures:  The  following  sequence  of  opera¬ 
tions  is  performed: 

(1)  Call  CDM  to  formulate  the  membrane  displacement 
derivative  matrix  as  [DFM]  . 

(2)  Call  MAB  to  form  [AM4]  =  [DFM]  [TMS] 

(3)  Call  MAB  to  form  [AM5u  =  [TU  ]  [AM4] 

(4)  Call  MSB  to  form  [AMQ  =  [EG  ]  foM5] 

(5)  Call  MAB  to  form  (AM5)  =  [TES]  IAM6J 

(5)  Multiply  [AM5] by  the  thickness  and  store  in  appro¬ 
priate  location  of  the  stress  matrix. 

4  .  Input  Arguments : 

RIB] 

>  :  Local  coordinates 
R4bJ 

TU  :  Displacement  function  transformation 
EG  :  Material  properties  matrix 
TES  :  Strain  displacement  matrix 
1  :  Membrane  thickness 

TMS  :  Transformation  matrix  to  system  coordinates 

5.  Output  Arguments: 

S  :  Stress  matrix  in  system  coordinates  . 

6 .  Error  Returns :  None 


7.  Calling  Sequence: 

CALL  C$TM  (RIB,  R2B,  R3B,  R4B,  TU,  EG,  TE$,  T,  S,  TFS , 
TMS,  DFM,  AM4,  AM5,  AM6) 

8 .  Input  Tapes :  None 

9 .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 


AM4  (4,  48),  DFM  (4,16),  TU  (3,4),  EG  (10),  TES  (3,3), 

S  (40,48),  AM5  (3,46),  AM6  (3,48),  TFS  (16,48),  TMS  (16,48), 
Total  Storage  is  (17o),0. 


f 

I 
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12.  Subroutine  Nser:  PLUG1 

13.  Subroutines  Required:  MAB,  MSB 

14 .  Remarks :  None 


1.  Subroutine  Name:  CDM 

2.  Purpose:  To  evaluate  membrane  displacement  derivative 

matrix  for  the  4  zones  of  the  quadrilateral 

3.  Equations  and  Procedures: 

See  Writeup  on  PLUG  1  for  equations 

4.  Input  Argumencs : 

IZ  -  constant  for  zone  to  be  evaluated 

RIB,  R2B,  R3B,  r4b  -  local  coordinates  of  element 

5.  Output  Argument.;: 

LFM  -  membrane  displacement  displacement  matrix 

6.  Error  returns:  None 

7.  Calling  Sequence: 

Call  CDM  (IZ,  RIB,  R2B,  R3B,  R4B,  DPM) 

8.  Input  Tapes:  None 

9.  Output  Tapes :  None 

10.  Scratch  tapes :  None 

11.  Storage  required; 

RIB  (1),  R2B  (1),  H3B  (1),  R4B  (1),  DFM  (4,  16) 
Total  Storage  is  (257)10 

12.  Subroutine  User:  CSTM 

13.  Subroutines  Required :  None 

14 .  Remarks :  None 
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1 .  Subroutine  Name :  CFMTS 

2.  Purpose:  To  evaluate  the  membrane  thermal  load  and  thermal 
stress  matrices 

3 .  Equations  and  Procedures : 

(1)  The  thermal  load  is  computed  as  follows: 

{ AMI}  =  [EM]  {ALPHM  } 

{AM2}  =  [TES]T{AMli 

{XT}  =  [TU]  T{AMZ} 

{IT}  =  T |siNAj{lT}  s  then 

Call  CFM  to  formulate  the  thermal  load  FEB  then 
{FT}  =  [TMS]  T  {FPB} 

(2)  The  thermal  stress  matrix  is  computed  as  follows: 

{  AM2 }  =  DELTM  (T)  {AM2} 

{  2'ZLM}  =  [TESS]  {AM2} 

The  SZLM  array  is  assembled  into  g'ZALEL , 

4.  Input  Arguments: 

EM  :  Material  properties  matrix 

ALPHM  :  Coefficients  of  thermal  expansion 

TE#  :  Strain  transformation  matrix 

TU  :  Displacement  function  transformation 

T  :  Membrane  plate  thickness 

$TNA  :  Sine  of  angle  determined  by  the  intersection  of 
diagonals  and  grid  points  1  and  2 
DELPQ  :  Table  of  integrals for  the  4  zones  of  the  quadri¬ 
lateral 

BMT  :  Transformation  matrix 

DELHI  :  Membrane  temperature 

TEg#  :  Stress  transformation 

TM#  :  Transformation  to  global  system 

*K1  :  Array  containing  DELPQ 

5 .  Output  Arguments : 

SZALEL  :  Thermal  stress  matrix 

FT  :  Thermal  load  matrix 

AM4  \ 

AM7  }  :  Working  arrays 

FPB  I 


8.262 


6.  Error  Results:  None 


7. 


Calling  Sequence: 
BMT,  DELTM,  TESS, 
WK1) 


(EM,  ALPHM,  TES,  TU, 
SZALEL,  FT,  TFS,  TMS, 


T,  SIMA,  DELPQ, 
FPB,  AM4,  AM7, 


8,  Input  Tapes:  None 


9.  Output  Tapes:  None 


10.  Scratch  Tapes:  None 
11 


lUi>*ZALBL  (1)<  T (3’3>'  b* 

Total  Stoi’ages  is  (195)  10* 


12.  Subroutine  User:  PLUG1 


13.  Subroutines  Required:  MAB,  MATB,  CFMF 

14.  Remarks:  None 
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1 .  Subroutine  Name :  CFMV 

2 .  Purpose :  To  generate  the  membrane  thermal  load  matrix 
in  local  coordinates 

3 .  Equations  and  Procedures :  Formulations  are  given  in  the 
documentation  on  the  quadrilateral  element  in  Volume  I. 

4  .  Input  Arguments : 

DELC,  :  Table  of  integrals  for  4  zones  of  quadrilateral 
DELPQ 

IT  :  Thermal  vector 

BMT  :  Transformation  matrix 

5  .  Output  Arguments : 

FPB1  :  Thermal  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  CFMV  (DELC ,  FPB1,  IT,  BMT,  DELPQ) 

8 .  Input  Tapes :  None 

9  .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage:  DELC  (4,5,5),  FPB1  (16),  IT  (4),  BMT  (4),  FPB  (16), 
DELPQ  (4,5,5) 

Total  Storage  is  (310) ^q* 

12.  Subroutine  User:  CFMTS 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


8.264 


1.  Subroutine  Name:  PRT1 

2.  Purpose:  If  IPRINT  equals  -1,  intermediate  matrices 

generated  are  printed  out 

3.  Equations  and  Procedures:  not  applicable 

4.  Input  Argument: 

LT  -  Control  on  either  membrane  or  flexural  output 

TU,  TA0,  TGAMB,  T0GBM,  TGRBM  -  transformation  matrices 

FP,  FT,  CM,  EO,  IJFQ,  C21,  K210,  K21G  -  intermediate 
element  matrices 

KK  -  Control  for  dynamics  print 

5.  Output  Arguments:  None 

6.  Error  Returns :  None 

7.  Calling  Sequence  : 

CALL  PRT  (LT,  TU,  EO,  IJPQ,  C21,  IC210,  K21G,  TA0, 

TGAMB,  T0GBM,  TGRBM,  KM,  CM,  FP,  FT) 

8.  Input  tapes ;  None 

9.  Output  tapes :  None 

10.  Scratch  tapes :  None 

11.  Storage:  E0(10),  IJPQ(IO),  021(105),  K210(136). 

K21G(210(,  TA0(8,8),  TU(3,4),  TGAMB(l6, 16), 
T0GBM(l6, 20),  TGRBM(20,48),  CM(1),  FP(1),  ET(1) 

Total  Storage  is  (538 )^q 

12.  Subroutine  User :  PLUG  1 

13.  Subroutine  Required :  SYMPRT 

14.  Remarks  :  Matrices  above  defined  in  other  writeups. 
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1 .  Subroutine  Name :  CK22 

2.  Purpose:  Formulate  the  flexural  stiffness  matrix  in 
local  coordinates  . 


3.  Equation  and  Procedures: 

(1)  The  following  operations  take  place  to  formulate  the 

transfer  motion  matrices 

(a)  Calls  CTGB  to  evaluate  the  transformation  to 
geometric  coordinates  as  TGAMB 

(b)  Inverts  TGAMB 

( ;)  Calls  CT0GB  to  formulate  the  transformation  from 
oblique  to  geometric  coordinates  as  T0G3 

(d)  Calls  CTGRB  to  formulate  the  transformation  from 
geometric  to  reference  system  coordinates  as 
TGRBM 

(e)  If  grid  point  axes  transformations  are  used,  call 
AXTRA2  to  revise  the  flexural  transformation  TGRB . 

(2)  The  flexural  stiffness  is  then  obtained  by: 

(a)  Formulating  the  rigidity  as  IPQ 

(b)  Evaluating  the  [c] matrix  for  each  zone  by  calling 
CC2 

(c)  Assembling  the [C] matrix  for  each  zone  into  C21  by 
calling  CC2]  . 

(d)  Forming  the  following  products: 

[K220f]  =  [TGAMB]  T[C22][TGAMB] 

[K22G]  =  [T0GB]T[K22J2O[T0GB] 
gC21$]  =  [TGRB]  T  [K22G]  [TGRB] 

Where  [K21S0  is  the  desired  flexural  stiffness-matrix 

4  .  Input  Arguments : 


K214 

IA$$Y 

NL 

NDIR 

NDEG 

IC0NT 

GPAXEL 

NNO 

AJjBJ 


Input  Stiffness  matrix  from  membrane  contribution 

control  to  add  membrane  plus  flexural  stiffness 

Node  points  of  element 

Number  of  directions 

Number  of  degrees  c'f'  movement 

Control  on  grid  polr. v.  axis  transformations 

Grid  point  axis  trruis formations 

Number  of  no'* 3  pot  ts  being  transformed 

Local  coordinates 
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TMS  I 

TF$  | 

AMATT  V 
TRA0BQ 
TGN 

TPRIME 

$INA 

COSA 

LT2 

EG 

T 

NI 

DELFQ 


Transformation  matrices 


Sine  and  cosine  of  angle  defined  by  intersection 

of  diagonals  and  points  1  and  2 

Control  on  flexural  computation 

Modified  materials  property  matrix 

Flexural  plate  thickness 

Array  for  assembly  purposes 

Table  of  integrals  for  4  zones  of  quadrilateral 


5 .  Output  Arguments 


K21$ 
TGAMB  » 
T0GB 
TGRB 
TGRBM  ) 
C 

EO 

K220 

K226 

C22 

IPQ 

C21 


Flexural  contribution  to  stiffness  matrix 


Transformation  matrices 


Intermediate  matrices 


6  .  Error  Returns :  None 


7.  Calling  Sequence: 

CALL  CK22  (K21S,  IASSY,  NL,  NDIR.  NDEG,  IC0NT,  GPAXEL, 

NHO,  AJ,  BJ,  A  MAT,  TRA0BQ,  $INA,  C0SA,  TGN,  TPRIME, 
LT2,  TW,  EG,  T,  NI,  DELPQ,  TGAMB,  T0GB ,  TGRB, 

K220,  K22G,  C22,  IPQ,  C21,  TGRMB,  EO,  TF$,  TMS,  C) 


8. 

Input  tapes : 

None 

9  • 

Output  tapes: 

None 

10. 

Scratch  tapes: 

None 

11 . 

Storage : 

AJ  (1),  BJ (3.) ,  AMAT  (3,4) ,  TRA0BQ  (3,3),  TGN 
TPRIME  (3,3),  TW  (3,3),  EG  (10),  EO  (10),  NI 
DELPQ  (4,5,5),  TCAMB  (16, 16),  C  (28).  C21  (105), 
-  (20,  48 ‘  -  - 


(4,2,2) 
(8,  10) 


TGRBM  (20,  48)  K220  (136),  K22G  (210),  C22  (.105), 
T0GB  (16,20),  TGRB  (20,  48),  IPQ  (10),  TF$  (l6,  48) 
TM$  (16,  48) 


) 

) 
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Total  Storage  is  (269)  -^q- 

12  .  Subroutine  user :  PLUG1 
13.  Subroutines  required  aret 

CTSB,  MATI70,  C.T0GB,  CTGRB ,  AXTRA2,  BCB,  CC2,  CC21 . 
1  '!• .  Remarks : 

All  formulations  are  given  in  the  report  for  the 
quadrilateral  thin  shell  element. 
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1 .  Subroutine  Name :  CTGB 

2.  Purpose:  To  formulate  the  flexural  transformation  matrix 
from  local  to  geometric  coordinates  . 

3.  Equations  and  Procedures: 

(1)  The  TGB  matrix  is  formulated  from  local  coordinates 

(2)  Using  elements  from  AMAT,  the  lengths  of  the  sides 
of  each  zone  are  computed  and  assembled  in  the  TGN 
matrix 

(3)  The  T0N  matrix  is  evaluated  for  the  4  zones  by  first 
storing  [TRA0BQ]  into  [T0G]  and  then  solving  [T0N]  = 

[T0c]  [TGN] 

(4)  The  TGB  matrix  is  then  evaluated  for  the  4  zones  as 
(TGB]  =  [T0N]{WX>  +  [T0N]  {WY} 

Where  {WX>  and {WY} are  arrays  of  local  coordinate  values 
for  the  respective  zones  . 

4  .  Input  Variables : 

AJ,  BJ  :  Local  coordinates 

AMAT  :  Transformation  to  local  coordinates 

TRA0BQ  :  Transformation  from  local  to  oblique  coordinates 

5 .  Output  Variables 
TGAMB  \ 

TGB  )  :  Transformation  matrices 

TGN  j 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  CTGB  (AJ,  BJ,  AMAT,  TRA0BQ,  TGAMB,  TGB,  TGN) 

8 .  Input  tapes :  None 

9  ,  Output  tapes :  None 

10  .  Scratch  tapes :  None 

11.  Storage: 

T0N  (4,2,2),  TGB  (16,  16) ,  TOG  (2,2),  XD  (4),  YD  (4), 

WX  (16),  WY  (16),  L  (4), 'TGAMB  (l6,  16) ,  AJ  (1),  BJ  (1), 
AMAT  (3,4),  TGN  (4,2,2),  TRA0BQ  (3,3) 

Total  storage  is  (68l)^, 

12.  Subroutine  User:  CK22 
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13.  Subroutines  Called:  None 

14 .  Remarks : 

All  formulations  are  given  in  the  report  on  the 
quadrilateral  thin  shell  element  - 
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^  A 


1.  Subroutine  Name:  MATI70 

2.  Purpose:  To  invert  the  [TGAMB]  matrix 

3.  Equations:  standard  inverse  technique  where  inverted 
matrix  is  stored  back  on  top  of  itself. 

Input  Arguments: 

N  -  order  of  matrix  =  1 6 
A  -  matrix  to  be  inverted 

5.  Output  Arguments 

A  -  inverted  matrix 

I$ING  -  error  return 

DETR  -  value  of  determinant 

6.  Error  Return: 

IF  I$ING  =  1,  singular  matrix 

7.  Galling  Sequence:  CALL  MATI70  (N,  A,  DETR) 

0.  Input  Tapes:  None 

9.  Output  Tapes:  None 
1  10.  Scratch  Tapes;  None 

11.  Stnrqcre: 

Total  Storage  required  is  66^g  Bytes. 

12.  Subroutine  User:  CX22 

13.  Subroutines  Required:  None 

5  l4.  Remarks:  None 


1. 


Subroutine  Name :  CT0GB 


2.  Purpose:  formulate  the  flexural  transformation  matrix 
from  oblique  to  geometric  coordinates 


3.  Equations  and  procedures:  The  formulation  is  given  in  the 
report  on  the  quadrilateral  plate  . 


4.  Input  Arguments: 


SINA,  C0SA  -  sine  and  cosine  of  the  angle  defined  by  the 
diagorals  and  points  1  and  2 


TON 


Transformation  matrix 


5.  Output  Arguments: 

T0GB  -  the  required  transformation  matrix 
G.  Error  Returns:  None 


7.  CallingSeqver.ee: 


CALL  CT0GB  (SINA,  C0SA,  TGN,  T0GB) 
8.  Input  Tapes:  None 
P.  Output  Tapes:  None . 

10.  Scratch  Tapes:  None 

11.  Storage:  TGN(4,2,2),  T0GB(l6.2O) 

Total  Storage  is  (7o)^ 

12.  Subroutine  User:  CK22 

13.  Subroutines  Required:  None 
l4f  Remarks  :  None 
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1.  Subroutine  Name:  CTGRB 

2.  Purpose :  formulate  the  flexural  transformation  matrix 
f^m  geometric  to  reference  system  coordinates. 

3.  Equations  and  Procedures: 

(1)  Elements  of  the  TPRIME  matrix  are  first  assembled  into 
their  respective  positions 

(2)  If  any  midpoints  are  surmressed,  the  contribution  of 
the  midnoints  is  redistributed  to  the  respective 
corner  points 


4.  Input  Arguments: 

NL  -  node  point  numbers 

TON  -  transformation  matrix  for  midpoints 

•TPRIME  -  transformation  matrix  to  local  coordinates 

tj>.  Output  Arguments: 

TORE,  TGRBM  -  transformation  from  geometric  to  reference 
system  coordinates 

o.  Error  Returns:  None 

7.  Galling  Sequence: 

CALL  CTGRB (NL,  TGN,  TPRIME,  TGRBM,  TGRB) 

.3.  Input  Tapes:  None 

Q.  Output  Tapes:  None 

10.  •S'"ra‘bh  Tapes:  None 

11.  “ r.orage:  NL(1),  TGN(4,2,2),  AI(4),  BI(4),  TPRIME(3,3) 

TGRB (20,48),  TGRBM(20,48) 

Total  storage  is  (345)l0 

12.  Subroutine  User:  CK22 

13.  Subroutines  Required:  None 

14.  Remarks:  Formulation  is  given  in  report  on  Quadrilateral 

Plate 
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1 .  Subroutine  Name :  CC2 

2.  Purpose:  Form  for  the  4  zones  of  the  quadrilateral  the 
flexural  contributions  to  an  intermediate  matrix  C  . 

3.  Equations  aid  Procedures:  Thu  formulation  is  given  in 
report  on  quadrilateral  thin  shell  element 

'I  .  Input  Arguments : 

K  :  Control  on  zone  contribution 

IFQ  :  Rigidity  matrix 

DELFQ  :  Table  of  integrals  for  th°  4  zones  of  the  quadri¬ 
lateral 

‘5  .  Output  Arguments : 

»;  :  elements  of  the  intermediate  matrix 

o.  Error  Returns:  None 
7.  Calling  Sequence: 

CALL  CC2  (K,  IPQ,  DE-LPQ,  C) 

) .  Input  tapes :  None 

• i .  Output  tapes:  None 

10  .  Scratch  Tapes :  None 

11.  Storage: 

Total  Storage  required  is  5B6^g  Bytes. 

12.  Subroutine  User:  CK22 

13.  Subroutine  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  CFP 

2.  Purpose:  Formulate  the  pressure  load  for  the  quadrilat¬ 
eral  plate  in  reference  system  coordinates 

3.  Equations  and  Procedures: 

Call  CFPF>  to  generate  the  pressure  load  vector  in  refer¬ 
ence  system  coordinates  as  FPB  as  defined  by 

{FP}  =  [TF$]  T  (FPB)  . 

•i.  Input  Arguments: 

JELPQ.  :  Table  of  integrals  for  the  4  zones  of  the 
quadrilateral 

P  :  Pressures  at  node  points 

SINA  :  Sine  of  angle  defined  by  intersection  of 

diagonals  and  points  1  and  2  of  the  element 
TFB  :  Flexural  transformation  matrix 

').  Output  Arguments: 

FP  :  Pressure  load  vector  in  reference  system 
coordinates 

FPB  :  Pressure  load  ir,  local  system. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  CFP  (DELPQ,  P,  £INA,  FP,  TFS,  TMS,  FPB) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 
1] .  Storage : 

DELPQ  (4,5,5),  FP  (4,8),  FPB  (16),  TFB  (15,48),  TMS  (15, 48) 
Total  Storage  is  (57)^* 

12.  Subroutine  User:  CK22 

13.  Subroutine  Required:  CFPB,  MATB 

14.  Remarks:  The  formulation  is  given  in  the  documentation 
on  the  quadrilateral  element  in  Volume  I. 


/ 
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1 .  Subroutine  Name :  CFPB 

?.  Purpose:  Formulate  the  pressure  load  in  local  coordinates 
for  the  quadrilateral  thin  shell  element. 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
report  on  the  quadrilateral  thin  shell  element. 

4.  Input  Arguments: 

DELFQ  :  Table  of  intergrals  for  the  4  zones  of  the  element 
?  :  Pressure  value. 

3INA  :  Sine  of  angle  defined  by  intersection  of  diagonals 
and  points  1  and  2  of  the  element 

r-. .  Output  Arguments : 

FFB  :  Pressure  load  in  local  coordinates 

0.  Error  Returns:  Hone 

7.  falling  Sequence: 

CALL  CFFB  (  DELPQ,  P,  SINA,  FPB) 

8.  Input  tapes:  None 

0.  Output  tapes:  None 

10  .  Scratch  tapes :  None 

11.  Storage: 

DELPQ  (4,5,5) ,  FPB  (16) 

Total  Storage  is  (227) 

12.  Subroutine  User:  CFP 

13.  Subroutines  required:  None 

14 .  Remarks :  None 


8.276 


1 .  Subroutine  Name :  CSTP 

2.  Purpose:  To  evaluate  the  flexural  contribution  to 

the  stress  matrix  in  reference  system  coordinates  for  the 
quadrilateral  element . 

3  .  Equations  and  Procedures : 

(1)  Call  CDF  to  evaluate  the  membrane  displacement 
derivative  matrix  DFM . 

(2)  Perform  the  following  operations: 

(a)  £AM3  =  [DFM]  LTFS] 

(b  [AM()J  =  [TW  ]  1AM5J 

(c)  [AM51  =  [EG  ]  IAM6] 

(d)  [AMO]  =  [TE|]  [AM5] 

The  AM6  matrix  is  then  assembled  into  the  stress  matrix 
S  . 

(3'  Call  CDX  to  evaluate  the  flexural  derivatives  matrix 
DFM. 

(4)  After  generating  the  G  matrix,  perform  the  following: 

(a)  [M  =  DFM]  [ TF$: 

(b)  [AMO]  =  [TW  ]  [AM5! 

(c  [AM51  =  [EG]  [AM6! 

(d)  [AM$  =  [G  ]  [AM5] 

(5)  Evaluate  another  G  matrix  and  call  CDFX  and  CDFY 
to  formulate  the  flexural  derivate  matrix  DFM . 

(6)  Pel-form  the  following  operations: 


(a) 

D\M53  -  [DFMl 

[TR$] 

b 

0\m61  =  [TW  J 

[AM5] 

(c) 

[AM5]  =  [EG  J 

[AM6J 

(d) 

[AM?]  =  [G  J 

[AM5l 

The  AM7  and  AMb  matrices  are  then  assembled  into  the 
stress  matrix  S  . 

4.  Input  Arguments : 

T  :  Flexural  thickness 
TW  ) 

TE  * 

>  :  Transformation  matrices 

TM$  j 

EG  :  Material  properties  matrix 


8.277 


RIB  ) 

OpD  \ 

R3B  )  :Local  coordinates 
R4B  ) 

C0SA,  :Sine  and  cosine  of  angle  defined  by  the  intersection 
SINA  of  the  diagonals  and  points  1  and  2  of  the  element 


p.  Output  Arguments: 

S  : Stress  matrix 
DFM  ) 

AM5  I 

AM6  )  : Intermediate  matrices 
AM7  : 

AM8  J 


6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  C$TF  (T,  TW,  EG,  TES,  RIB,  R2B.  R3B,  R4B,  C0SA,  SINA, 
S,  TFS,  TMS ,  DFM,  AM5,  AM6,  AM7,  AMti) 


8. 

Input  tapes: 

None 

9. 

Output  tapes: 

None 

10. 

Scratch  Tapes: 

None 

11 . 

Storage  Required: 

RIB 
EG 
AM7 

(16, '48) . 

Total  Storage  is  (446 )1Q • 


(3),  R2B  (3),  R3B  3),  R4b  (3),  DFM  (4,  16),  TW  (3,3), 
(10  ,  TES  (3,3) ,  S  (40,  A8),  AM5  (3,  48),  AM6  (3,  46), 
(2,  48),  AM8  (2,  48),  G  (2,  3),  TF$  (16,  48),  TMS 


12.  Subroutine  User:  PLUG1 


13.  Subroutines  Required: 

MAB,  MSB,  CDF,  CDFX,  CDFY 

14 .  Remarks : 

The  formulations  are  given  in  the  documentation  on  the 
quadrilateral  element. 


1.  Subroutine  Name:  CDF 

2.  Purpose:  To  evaluate  the  flexure  derivative  matrices  for 
the  4  zones  of  the  quadrilateral  element 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
documentation  on  the  quadrilateral  element. 

4 .  Input  Arguments : 

IZ  :  Control  on  zone  computation 
RIB) 

R2B  l 

)  •  .Local  coordinates 
R4B  I 

n  .  Output  Arguments : 

DFM  :  Flexural  derivative  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  CDF  (IZ,  RIB,  R23,  R3B,  R4B,  DFM) 

8.  Input  tapes:  None 

9  .  Output  tapes :  None 

10  .  Scratch  tapes :  None 

11.  Storage  Required: 

RIB  (1),  R2B  (1),  R3B  (1),  R4B  (1),  DFM  (4,  16) 

Total  storage  is  (271)1Q. 

12.  Subroutine  User:  CSTF 

13 .  Subroutines  required :  None 

14 .  Remarks :  None 
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1 .  Subroutine  Name :  CDFX 


f .  Purpose:  To  evaluate  the  partial  derivatives  with  respect 
to  x  of  the  flexural  displacement  matrix  for  the  4  zones 
of  the  quadrilateral  element 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
documentation  on  the  quadrilateral  element. 

.  Input  Arguments: 

ITE  :  Control  on  constant  (Tl) 

IZ  :  Control  on  zone  computation 

C0SAj  :  Sine  and  cosine  of  angle  defined  by  the  intersection 
SINA  of  the  diagonals  and  points  1  and  2  of  the  element. 

3.  Output  Arguments: 

DFM  :  Flexural  derivative  matrix 

>■.  Error  returns:  None 

7.  Calling  Sequence: 

CALL  CDFX  (ITE,  C0SA,  SINA,  IZ,  DFM) 

8.  Input  tapes:  None 

■) .  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage  Required:  DFM  (4,  16) 

Total  Storage  is  (176)^Q. 

12.  Subroutine  User:  CSTF 

13.  Subroutines  required:  None 

14 .  Remarks :  None 
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/ 


Subroutine  Name:  CDFY 


T 


T 


► 


1 . 
2 . 

3. 

•'4. 


5- 


o . 


7. 


8. 

■4. 


10. 


11 . 

12. 

13. 

14. 


Purpose:  To  evaluate  the  partial  derivatives  with  respect 
to  y  of  the  flexural  displacement  derivative  matrix  for  the 
4  zones  of  the  quadrilateral  element 

Equations  and  Procedures:  Formulation  is  given  in  the 
documentation  on  the  quadrilateral  element 

Input  Arguments: 

IZ  :  Control  on  zone  computation 

SINA  :  Sine  of  angle  defined  by  the  intersection  of  the 
diagonals  and  points  1  and  2  of'  the  element 

Output  Arguments: 

CFM  :  Flexural  derivative  matrix 

Error  Returns :  None 

Calling  Sequence: 

CALL  CDFY  (IZ,  SINA,  DFM) 

Input  tapes:  None 

Output  tapes:  None 

Scratch  tapes:  None 

Storage  Required:  Total  Storage  required  is  2E8l6  Bytes. 

Subroutine  User:  CSTF 
Subroutines  required:  None 
Remarks :  None 


1.  Subroutine  Name:  CFFTS 


?.  Furpose:  To  evaluate  the  flexural  contribution  to  the 

therm'*  1  load  and  stress  matrices  for  the  quadrilateral  element. 

3.  Equation  and  Procedures: 

(1;  The  thermal  stress  is  obtained  by: 

(a)  {AMI}  -  [EMJ  {ALPHM} 

(b)  { AM2 }  --  [TES|T  (AMI} 

(c)  { JT  (  --  {AM2} 

(d)  {AM?}  =  C4  {AM2}  where  C4  is  a  flexural  constant 

( e )  {SZLF)  =  (TESS]  {AM2} 

,SZLF  is  assembled  into  the  thermal  stress  matrix 
3ZALEI. . 

(2)  The  tneimal  load  is  obtained  by: 

{a)  Define  a  flexural  constant  C3, 

(b)  {JT}  =  C3  x  {JT}, 

(c)  Call  CFFV  to  formulate  the  thermal  load  in  local 
system  coordinates  as  {FPB}, 

(d)  Transform  the  thermal  load  to  reference  system 

coordinates  as  [AM3 J  =  [TFS]  T  {FPB} , 

{AM  3}  is  assembled  into  the  thermal  load  matrix 
FT. 

4 .  Input  Arguments : 

EM  :  Material  properties  matrix 
ALPHM  :  Thermal  coefficient  matrix 
TMS  \ 

TE$  | 

TE$$  )  :  Transformati.on  matrices 

BMT  ! 

TF$  / 

DELTF  :  Flexural  temperature 
T  :  Flexural  thickness 

SINA  :  Sine  of  angle  defined  by  intersection  of  diagonals 
and  points  1  and  2  of  the  element 
DELPQ  :  Table  of  integrals  for  the  4  zones 

5  .  Output  Arguments : 

SZALEL  :  Thermal  stress  matrix 
FT  :  Thermal  load  matrix 
FPB  \ 

AM3  ,  :  Intermediate  matrices 
WK1 
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( > .  Error  Returns :  None 


?'.  Calling  Sequence: 

CALL  CFFTS  (EM,  ALPHM,  TES,  TW,  DELTF ,  T,  TESS.  SINA, 
DELPQ,  BMT ,  SZALEL,  FT,  TFS,  TMS ,  FPB,  AM  3,  WK1) 

8.  Input  Tapes:  None 

K  Output  Tapes:  None 

10.  Scratch  Tapes:  Nci'e 

11.  Storage  Required' 

EM  (10),  ALPHM 
FT  (48),  FPB  ( 

TESS  (3-3),  AM 
TMS  (16,  48),  WKi  (100) 

Total  Storage  is  (222) 1Q. 

12.  Subroutine  User:  PLUG1 


13.  Subroutines  Required:  MAB,  CFFV,  MATB 

14 .  Remarks :  Formulation  is  given  in  documentation  on  the 
quadrilateral  element  in  Volume  I. 


(3) ,  TES’  (3,3),  TW  (3,3),  LELPQ  (4,5,5), 

16).  JT  (3),  BMT  (3,1),  SZLF  (3),  SZALEL  (1), 
3  (481.  AMI  (31.  AM2  (31.  TFS  (16.  481. 
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1.  Subroutine  Name:  CFFV 

2.  Purpose:  To  evaluate  the  flexural  thermal  load  matrix  in 
local  system  coordinates  for  the  quadrilateral  element 

3.  Equations  and  Procedures:  Formulation  is  given  in  the 
report  on  the  quadrilateral  element  in  Volume  I 

4  .  Input  Arguments : 

DELC,  :Table  of  integrals  for  the  4  zones  of  the  quad- 
DELFQ  rilateral 
JT  : Flexural  rigidity 
BMT  transformation  matrix 

5 .  Output  Arguments : 

FFB1  : Flexural  load  matrix  in  local  coordinates 

6 .  Error  Results :  None 

7.  Calling  Sequence: 

CALL  CFFV  (DELC,  FPB1,  JT,  BMT,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10  .  Scratch  Tapes :  None 

11.  Storage  Required; 

DELC  (4,5,5) ,  DELPQ  (4,5,5)  FPB1  (16),  JT  (4),  BMT  (4}, 
FPB  (16) 

Total  Storage  is  (365) 


12.  Subroutine  User:  CFFTS 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


1 .  Subroutine  Name :  CFMASS 

2.  Purpose:  Evaluate  the  flexural  mass  matrix  in  local 
system  coordinates  for  the  quadrilatt  'al  thin  shell  element 

3 .  Equations  and  Procedures :  Formulation  is  given  in  report 
on  the  quadrilateral  thin  shell  element. 

4 .  Input  Arguments : 

T  :  Flexural  thickness 

D00  :  Area  array  of  the  4  zones  of  the  quadrilateral 

SxNA  :  Sine  of  angle  defined  by  intersection  of  the 
diagonals  and  points  1  and  2  of  the  element 
DENS  :  Density  of  element  material 

5 .  Output  Arguments : 

AMS  :  Elements  of  the  mass  matrix  in  local  coordinate 
system 

6.  Error  Returned:  None 

7 .  Calling  Sequence : 

CALL  CFMA$$  (T,  D00,  SINA,  DENS,  AMS) 

8.  Input  tapes:  None 

9 .  Output  tapes :  None 

10  .  Scratch  tapes :  None 

11.  Storage  Required; 

Total  Storage  required  is  234^  Bytes. 

12.  Subroutine  User:  PLUG1 

13.  Subroutines  Required;  None 

14 .  Remarks :  None 
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1 . 

Subroutine  Name:  PLUG7 

2. 

Purpose:  To  formulate  the 
element 

element  matrices  for  a 

frame 

3. 

Equations  and  Procedures: 
operations  take  place: 

The  following  sequence 

of 

(l'\  Plug  constants  are  set  and  checked  against  plug  input 

(2)  Data  is  processed  for: 

(a.)  grid  points 

(b)  element  data  such  as  area,  inertia,  etc. 

(3)  The  length  for  the  element  and  the  direction  cosines 
are  determined  and  stored  in  TPRIME. 

(4)  Call  CTS  and  CTCQ  to  formulate  transformation  matrices 
TS  and  TCQ .  The  ecqentity  of  the  element  is  taken  into 
account  by  calling  CECC  and  modifing  the  TS  matrix . 

(5)  The  transformation  to  systems  coordinates  is  per¬ 
formed  as  (TCQS]  =  [TCQ]  [TS]  and  if  grid  point  axes 
transformations  are  necessary,  [TCQS]  is  modified . 

(6)  The  matrix  [KSj  is  evaluated  and  then  pre  ana  post 
multiplied  by  [TCQS]  to  form  the  stiffness  matrix  as 

(7)  Dependent  on  the  type  of  analysis,  the  incremental 
and  mass  matrices  may  be  computed . 

£8)  The  thermal  load  is  set  equal  to  zero . 

(9)  The  stiffness  matrix  is  rearranged  into  the  stress 

matrix  and  the  thermal  * stress  matrix  set  equal  to  zero. 

(10)  If  the  print  option  is  not  equal  to  0  calls  P7PRT 
to  print  out  intermediate  computations . 

4 .  Input  Arguments : 


IPL 

m 

NNO 

XC 

YC 

ZC 

TEL 

PEL 

QS 

N0RD 

NERR 

KK 

KF 

K8 

KM 

ET 

KVM 

XN 


:  Plug  number 
:  Number  of  nodes 

^  :  Element  coordinates 

:  Temperature  array 
:  Pressure  array 
:  Initial  displacements 
:  Order  of  stiffness  matrix 
:  Error  return 


:  Controls  on  element  matrices  to  be  computed 
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EPSI0 

S0 

MAT 

EXTRA 

GPAXEL 

NDIR 

NDEG 

IC0NT 


:  Prestress  and  prestra  .n  clues 

:  Material  properties  array 
:  Element  geometric  properties 
:  Grid  point  axis  transformations 
.  Humber  of  directions  and  degree  control  for 
grid  point  axis  transformation 
:  Control  on  grid  point  axis 


'i.  Output  Arguments: 


KSEL 

GT 

FTEL 

SEL 

SZALEL 

AMASS 

DAMFV  \ 

LAMPS  J 

IJRCEL 

NL 

N0INK  \ 
NMASS  I 
NDMFV  ) 

NDMP$ 
N$EL  ) 


Stiffness  matrix 
Gradient 

Thermal  load  matrix 
Stress  matrix 
Thermal  stress  matrix 
Mass  Matrix 

Viscous  and  Structure,!  Damping  Matrices 

Number  of  rows  in  stress  matrix 
Node  point  numbers 

Number  of  elements  in  the  stiffness,  mass,  viscous 
damping,  structural  damping  and  stress  matrices 


6.  Error  Returns:  If  third  node  point  is  not  present,  then  exit. 
Standard  tests  on  plug  constants. 


7.  Calling  Sequence: 

CALL  PLUG?  (IPL.  NNO,  XC,  YC,  ZC,  TEL,  PEL,  QS,  IP,  N0RD, 
NERR,  N0INK,  K$EL,  AN1,  FTEL,  SEL,  SZALEL,  AMASS, 
DAMFV,  DAMPS,  NRSEL,  NN,  NL,  NMASS,  NDMFV,  NDMPS, 
NSEL,  KK,  KF,  K8,  KM,  ET,  KVM,  KN,  IUSEL,  EPSIO,  SO, 
MAT,  EXTRA,  GPAXEL,  NDIR,  NDEG,  IC0NT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
10 v  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  16A 6^^^  Bytes. 

12.  Subroutine  User:  ELPLUG 


13.  Subroutines  Required:  ELTEST,  CTCQ,  MAB,  AXTRA2,  CECC, 

BCB,  MSB,  MATB,  P7PRT,  CTS,  INCRE 

14.  Remarks:  Formulations  are  given  in  report  on  Frame  Element. 
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1 .  Subroutine  Name :  INCRE 


?.  Purpose:  To  evaluate  che  incremental  matrix  for  the  frame 
element. 

3.  Equations  and  Procedures:  Formulation  is  given  in  report 
on  Frame  Element. 

4  .  Input  Arguments : 

CtffNI 

C0N?  :  Cons1:anxs  sefc  equal  to  1.0 

T 

•  ••  Physical  properties  of  element 

u  i. 

C  :  Input  displacement  matrix 
TCQS  :  Transformation  matrix 

5  .  Output  Arguments : 

AN1  :  Element  incremental  stiffness  matrix  transformed  to 
reference  system  coordinates . 

A!  \ 

Cl 

N  )  :  Intermediate  matrices 
AN 2  ( 

AN  3  J 

6  .  Error  Returns :  None 
7.  Calling  Sequence: 

CALL  INCRE  (C0N1,  C0N2,  L,  Jl,  AN1,  AN2,  C,  TCQS,  N,  AN3/ 
AI,  Cl) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required: 

AN1  (171),  AN 2  (78).  N  (78),  AN 3  (78),  AI  (3,5),  C  (1), 
TCQS  (12,12),  Cl  (18) 

12.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  BCB 

14 .  Remarks :  None 
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1.  Subroutine  Name:  P7PRT 


Purpose:  To  print  out  intermediate  computations  and 
matrices  from  the  frame  element 

Equations  and  Procedures:  Not  applicable. 

Input  Arguments: 


NERR 

GRI 

GR4 

GRT 

PHI1 

PHI4 

AMMAS 

EX 

G 

A 

AJ1 

J1 

L 

AIY 

AIZ 

EEI 

ET 

RN 

R1 

R2 

R3 

RM 

TPRIME 

TCQ 

T$ 

TCQS 

AN1 

AN2 

KS 

C 

IPRINT 


:  Error  test 
:  Gradient  terms 

:  Energy  terms 
:  Mass  Matrix 


Material  and  geometric  properties 


Control  on  element  matrix  computation 


Intermediate  computations 


Transformation  matrices 


;  Incremental  matrices 

:  Stiffness  matrix 
:  Intermediate  displacement  matrix 
:  Print  option 


5.  Output  Arguments:  Not  applicable 

6.  Error  Returns:  If  node  point  3  equal  to  zero,  then  exit. 
7*  Calling  Sequence: 

CALL  P7PRT  (NERR,  GRI,  GR4,  PHI1,  PHI4,  AMMAS,  G,  A,  AJ1, 
L,  AIY,  AIZ,  RN,  Rl,  R2,  R3,  AJ,  TPRIME,  KS,  TCQ, 

TS,  TCQS ,  C,  QS,  AN2,  AN1,  RM,  EX,  EEI,  PRINT,  AN1 
ET) 
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8. 

Input  tapes:  None 

M  f 

Output  tapes :  None 

10  . 

Scratch  tapes :  None 

11. 

Storage  Required: 

GR  (1),  GR4  (1',,  AMMAS 
R3  (1),  AJ  (li,  TFRIME 
(12,12),  C  (1),  QS  (1), 
3RT  (1)  .  Total  storage 

(1),  RN  (1),  . 
(3,3),  KS  (1) 
AN2  (1),  AMI 
is  (&7)10> 

IP. 

Subroutine  Uset-:  PLUG? 

13. 

Subroutines  Required:  SYMPRT 

14. 

Remarks :  None 

1 .  Subroutine  Name :  CT3 

2.  Purpose:  To  evaluate  the  transformation  matrix  from  local 
to  referenced  system  coordinates  for  the  frame  element 

3.  Equations  and  Procedures:  Formulation  is  given  in 
documentation  on  frame  element.’ 

4  .  Input  Arguments : 

TPRIME  :  Local  coordinates  transformation  matrix 

5  .  Output  Arguments : 

TS  :  Required  transformation  matrix 

6 .  Error  Re  turns :  None 

7.  Galling  Sequence:  O/.LL  CTS  (EE1,  EE2,  TS,  TPRIME) 

8 .  Input  tapes :  None 

9 .  Output  tapes :  None 

10.  Scratch  tapes:  None 

11.  Storage  Required:  TS  (12,12),  TPRIME  (3,3) 

Total  Storage  is  (105)  1(y 

12.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  None 

14.  Remarks:  EE1,  E52  -  Dummy  arguments 


1 .  Subroutine  Name :  CTCQ 

2.  Purpose:  To  formulate  the  transformation  matrix  to  local 
system  coordinates  for  the  frame  element 

3.  Equations  and  Procedures:  Formulations  are  given  in 
documentation  on  Frame  Element. 

4 .  Input  Arguments : 

TGQ  :  Elements  of  input  transformation 
L 
L 
L 
L 
L 

5  .  Output  Arguments : 

TCQ  :  Required  transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CTCQ  (TCQ,  L,  L2,  L3,  L4,  L5) 

8  .  Input  tapes :  None 

9 .  Output  tapes :  None 

10.  Scratch  tapes:  None 

11.  Storage  required:  Total  Storage  required  is  2FC1g  Bytes. 

12.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 


:  Length,  Length  squared,  etc  . 


1 .  Subroutine  Name :  CECC 

2.  Purpose:  Tc  compute  modifications  to  the  transformation 
matrix  to  account  for  eccentricity  for  the  frame  element 

3.  Computations  and  Procedures:  Formulation  is  given  in 
documentation  on  Frame  Element. 

4  .  Input  Arguments : 

EE1  1 

EE2  J:  Eccentricity  matrices 

TS  :  Transformation  matrix  to  be  modified 

5 .  Output  Argumen  ts : 

TS  :  Modified  transformation  matrix 

6 .  Error  Returns :  None 

7.  Calling  Sequence:  CALL  CECC  (EE1,  EE2,  TS) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

10 .  Scratch  tapes :  None 

11.  Storage  required:  TS  (12,12),  EE1  (3),  EE2  (3) 

Total  Storage  is  (l46)1Q' 

12.  Subroutine  User:  PLUG7 

13.  Subroutines  Required:  None 

14 .  Remar  .’.s:  None 
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1.  Subroutine  Name:  MPRD 

2.  Purpose:  Multiply  two  matrices  to  form  a  resultant  matrix 
S.  Equations  and  Procedures: 


[R] 


[a]  [B] 


See  Remarks 


4.  Input  Arguments 

A:  First  input  matrix 

R:  Second  input  matrix 

N:  Number  of  rows  in  A  matrix 

L:  Number  of  columns  in  B 

MSA:  Control  on  storage  mode  of  A  \ 

i 

MSB:  Control  on  storage  mode  of  B  / 

Output  Arguments:  R  -  Resultant  matrix 
C\,  Error  Returns:  None 

7.  Calling  Sequence:  CALL  MPRD  (A,  B,  R,  N,  M,  MSA,  MSB,  L) 

3.  Input  Tapes:  None 
Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3EAl6  Bytes. 

12.  Subroutine  User:  Utility  subroutine 

13.  Subroutines  Required:  L0C 


l4.  Remax'ks: 

Storage  Control  Of  A  and  B  matrix  (MSA  and  MSB) 
0  -  General 

1  -  Symmetric  (upper  half) 

2  -  Diagonal 
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1.  Subroutine  Name:  TPRD 

2.  Purpose:  Transpose  a  matrix  and  postmultiply  by  another 

to  form  a  resultant  matrix. 

'3.  Equations  and  Procedures 

M  -  WT  [B]  i 

A  is  not  actually  transposed.  Instead,  elements  in  matrix  I 

A  are  taken  column-wise  rather  than  row-wise  for  multipli-  , 

cation  by  B.  ; 

4.  Input  Arguments 

l 

A :  First  input  matrix  , 

B  :  Second  input  matrix  j 

N :  Number  of  rows  in  A  and  B 

M:  Number  of  columns  in  A  and  rows  in  R 

T»:  Number  of  columns  in  B  and  rows  in  R  ' 

MSA :  Control  of  storage  mode  of  Ai  See  pemarj?s 

MSB :  Control  of  storage  mode  of  R  / 

*5.  Output  Arguments:  R  -  Resultant  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  CALL  TPRD  (A,  B,  R,  N,  M,  MSA,  MSB,  L) 

B.  Input  Tapes:  None 

9.  Output  Tapes:  None  •; 

j 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3EAl6  Bytes. 

12.  Subroutine  User:  Utility  subroutine  j 

13.  Subroutines  Required:  LOC  j 

14.  Remarks  j 

Storage  Control  of  A  and  B  Matrix  (MSA  and  MSB)  I 

0  -  General 

1  -  Symmetric  (upper  half  by  columns) 

u  -  Diagonal 

8.295 


t 


1,  Subroutine  Name:  AI  (Function) 

2.  Purpose:  Control  operation  of  the  triangular 
integration  package. 


3. 


Equations  and  Procedures:  The  integration  package  will 
calculate  the  value  of  a  double  definite  integral  of 
the  form 


r^z^dz  dr 


The  procedure  is  to  call  a  series  of  function  subprograms 
dependent  upon  the  values  of  p  and  q.  The  variables  in 
the  above  integral  are  represented  by  the  following 
program  variables,  which  are  defined  in  the  input 
arguments  section  below: 

Integral  Variable  Corresponding  Program  Variable 


r 

z 

P 

q 

i 

i 

k 

1 

m 

n 


fi 

Z 

IP 

IQ 

I 

J 

K 

L 

M 

N 


4.  Input  Arguments: 

I  :  r  coordinate  subscript  of  i  th  element 

defining  point 

J  :  z  coordinate  subscript  of  j  th  element 

defining  point 

K,  L  :  Slope  of  element  line  passing  through  the 
element  defining  point  zkl 

M,  N  :  Slope  of  element  line  passing  through  element 
defining  point  zm 

IP  :  Exponent  of  r  coordinate 

IQ  :  Exponent  of  z  coordinate 
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R  :  Array  containing  r  coordinates  of  element 

defining  points 

Z  :  Array  containing  z  coordinates  of  element 

defining  points 

5 .  Output  Argument : 

AI( Function)  :  Result  of  performing  the  indicated 
integration 

6.  Error  Return:  None 

7.  Calling  Sequence: 

AI(I,  J,  K,  L,  M,  N,  IP,  IQ,  R,  Z) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  9FE1g  Bytes. 

12.  Subroutine  User:  TRAIC,  DPQINT 

13.  Subroutines  Required: 

AM 

AK 

BINT 

F89 

FF100 

FJAB 

P6219 

P6211 


14.  Remarks:  None 


1. 


Subroutine  Name:  BINT 


P.  Purpose:  Perform  integration 

*^r  v(a+br)w  dr 

p.  Equations  and -Procedures: 

Expand  rv(a+br)w  by  binomial  theorem 
and  integrate  term  by  term. 

4.  Input  Arguments:  I,  J,  A,  B,  IV,  IW,  R,  Z 

'*>.  Output  Arguments:  BINT 

('u  Error  Returns:  None 

7.  Calling  Sequence:  BINT(I,  J,  A,  B,  IV,  IW,  R,  Z) 
l^.  Input  Tapes:  None 

Q.  Output  Tapes:  None 
jO.  Scratch  Tapes:  Hone 

11.  Storage  Required:  Total  Storage  required  Is  35 Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  COEF,  AJ 

14 .  Remarks :  None 


1.  Subroutine  name:  AK 

2.  Purpose:  Generate  slope  of  line  between  two  points  of  a 

triangle 

3.  Equations  and  Procedures: 

AK  =  [Z(J)  -  Z(I)  ]  /  [R(J)  -  R  (I)] 

4.  Input  Arguments:  I,  J,  R,  Z 

5.  Output  Arguments:  AK 
f>.  Error  Returns:  None 

7.  Calling  Sequence:  AK(I,  J,  R,  Z) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  180^  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


3.  Subroutine  Name:  AM 


2.  Purpose:  Generate  intercept  of  line  between  two  points  of 
triangle. 

3.  Equations  and  Procedures: 

AM  =  [R(J)Z(I)  -  R(I)Z(J)  ]  /  [r( J)  -  R(I)] 

4.  Input  Arguments:  I,  .T,  R.Z 

5.  Output  Arguments:  AM 

6.  Error  Returns:  None 

7.  Calling  sequence:  AM  (I,  J,  R,  S) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  1.98^  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  IFAG 

2.  Purpose:  Compute  N  factorial 

3.  Equations  and  Procedures:  Nl  »  IPAC  =  n(n-l)(n-2).  .  .  (l) 

4.  Input  Arguments:  N 

5.  Output  Arguments:  IPAC 

6.  Error  Returns:  None 

7.  Calling  Sequence:  IFAC(N) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  176- g  Bytes. 

12.  Subroutine  User:  FF100 

F89 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  FJAB  (function) 

2.  Purpose:  To  generate 

J |x  m~^/(a  +  bx)jdx 

3.  Equations  and  Procedures: 

F  =  [(xm  log  (a+bx) )/m j  -  [(b/m) J (xn/(a-bx)n)  dxj 
evaluated  at  x  =  x  (I) 

4.  Input  Arguments:  I,  A,  B,  M,  Nf  X 

5.  Output  Argument:  FJAB 

6.  Error  Returns:  None 

7.  Calling  Sequence:  FJAB  (I,  A,  B,  M,  N,  X) 

8.  Input  Tapes:  None 
Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  286l6  Byt 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  F89 

14.  Remarks:  None 


Subroutine  Name:  Fo2'19  (function) 

Purpose:  To  generate  integral  of 

J (log  (a  •!•  bx)  /  (xm  +  1))  dx 

Equation  and  Procedures: 

F  =  (  -  log  (a  +  bx)  /  (mxm) )  +  |J(b/(m(a  +  bx)  xm))  dx j 

evaluated  at  x  =  X(I) 

Input  Arguments:  I,  A,  B,  M,  N,  X 
Output  Arguments:  P6219 
Error  Returns:  None 

Calling  Sequence:  Function  F6219  (I,  k,  B,  M,  N,  X) 

Input  Tapes:  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  286-^g  Bytes. 
Subroutine  User:  AI 
Subroutines  Required:  FF100 
Remarks :  None 


1.  Subroutine  Name:  F6211 

2.  Purpose:  To  generate 

J [(log  (A+BX)/x]  dx 

3.  Equations  and  Procedures: 

„  .  „  / v \  .  BX  B2  X2  . 

F  =  log  (A)  .Log  (X)  +  —  -  + . 

evaluated  at  X  =  X  (I) 

4.  Input  Arguments :  X,  A,  B,  X 

5.  Output  Arguments:  F6211 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Function  F6211  (I,  A,  B,  X) 

R.  Input  Tapes:  None 

q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  ^9Cl6  Bytes. 

12.  Subroutine  User:  AI 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  AJ  (function) 

2.  Purpose:  Generates 

for  M  +  1  >0  [R(J)M  -  R(I)M  ]  /  !MH) 

for  M  +  1  =0  log  [R(J)/R(I)  ] 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  I,  J,  R,  M 

5.  Output  Arguments:  AJ 

6.  Error  Returns:  None 

7.  Calling  Sequence:  Function  AF(I,  J,  R,  M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  2621(j  Bytes. 

12.  Subroutine  User:  BINT 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  COEP 

2.  Purpose:  Generate  binomial  coefficient 

3.  Equations  and  Procedures: 


(the  combination  of  n  items  taken  r  times) 

4.  Input  Arguments:  N,R 

5.  Output  Arguments:  COEF 

6.  Error  Returns:  None 

7.  Calling  Sequence:  COEP  (N,R) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  Hone 
30.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  1F016  Bytes. 

12.  Subroutine  User:  BINT 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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L:  A 


1.  Subroutine  Name:  FS9  (Function) 


2.  Purpose:  To  generate  integral 

J(xm/(a+bx)n  )  dx 

3.  Equations  and  Procedures: 

F89=  -=£7 - — 


where  X  =  a+bx 


(m-s) Is  I 


s^m-n-s+1 

(m-n-s+1) 

m 


evaluated  at  x 

*1.  Input  Arguments:  I,  A,  3,  M,  N,  X 

5.  Output  Arguments:  F89 

6.  Error  Returns:  None 

7.  Calling  Sequence:  F89  (I,  A,  B,  M,  N,  X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  476-j.g  Bytes. 

12.  Subroutine  User:  AI 


13.  Subroutines  Required:  IFAC 

14.  Remarks j  None 
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i 

i 


1. 


Subroutine  Name:  FF100  (function) 


?.  Purpose:  generate 

J  (l/(xinXn)  )  dx 

where  X  =  a  +  bx 

3.  Equations  and  Procedures: 

_1  f  n  +  n  -  2 


FF10°  -  JH&I 


s?0 


fm  +  n  -  2)!  Xm~s“1(~b)t 

m-s-1 


(m+n-s-2) I s !  (m-s-l)x 


evaluated  at  x^ 

4.  Input  Arguments:  I,  A,  B,  M>  N,  X 
c5.  Output  Arguments :  FF100 

6.  Error  Returns:  None 

7.  Calling  Sequence:  FF100  (I,  A,  B,  M,  N,  X) 

B.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10 .  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  ^EBl6  Bytes. 

12.  Subroutine  User:  F6219 

13.  Subroutines  Required:  IFAC 

14.  Remarks:  None 
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1.  Subroutine  Name:  PLUG2 

2.  Purpose:  Control  generation  of  element  matrices  for  the 

triangular  thin  shell  element. 

3.  Equations  and  Procedures: 

a)  Call  subroutine  ELTEST  to  verify  input  control  values. 

b)  Call  subroutine  DTAPR  to  calculate  sub-elemer.t  coordinates 
and  boundaries. 

c)  Call  subroutine  MATPR  to  generate  material  properties 
matrices. 

d)  Call  subroutine  NEWFT1  to  apply  revised  thermal  load 
formulation,  if  necessary. 

e)  Call  subroutine  PTBM  to  generate  sub-element  to  local 
geometric  coordinate  system  transformation  matrix. 

f)  Call  subroutine  PTMQS  to  generate  local  geometric 
coordinates  to  reference  system  coordinates  transformation 

.  matrix. 

g)  Call  subroutine  MAD  to  combine  transformation  matrices 
generated  in  (e)  and  (f)  above  into  one  matrix  that  will 
apply  transformation  from  sub-element  to  reference  system 
coordinates. 

h)  If  grid  point  axes  are  to  be  applied  then  call  subroutine 
AXTRA2  to  appropriately  modify  final  transformation  matrix 
generated  in  (g)  above. 

i)  Call  subroutine  DPQINT  to  evaluate  the  integrals  over 
the  three  sub-elements. 

j)  Call  subroutine  PKM  to  generate  the  membrane  contribution 
to  the  element  stiffness  matrix. 

k)  Call  subroutine  PMMASS  to  generate  membrane  contributions 
to  element  mass  matrix. 

l)  Call  subroutine  PSTM  to  generate  tlie  membrane  contribution 
to  the  element  stress  matrix. 

m)  Call  subroutine  PFMTS  to  generate  membrane  contribution 
to  element  thermal  load  and  thermal  stress  matrices. 

n)  If  recreated,  call  subroutine  APRT  to  print  intermediate 
results . 

o)  The  flexural  contributions  to  the  element  matrices  are 
then  generated  with  the  following  flexure  subroutines 
performing  the  same  function  as  their  membrane  counterparts. 


PTBF 

is 

the 

flexural 

counterpart 

to 

PTBM 

PTFOS 

It 

It 

It 

11 

!f 

PTMCS 

PKF 

It 

It 

II 

It 

It 

PKM 

PFMASS 

II 

It 

tr 

If 

PMMASo 

PSTF 

ft 

1! 

II 

ft 

It 

PSTM 

PPFTS 

It 

If 

II 

tr 

II 

PFMTS 

p)  Call  subroutine  PPP  to  generate  element  pressure  load 
matrix. 

q)  Call  subroutines  PNC1  and  PNG1  to  generate  element 
incremental  stiffness  matrix  (non- functional) . 

r)  Call  subroutine  PLAS2  to  generate  plasticity  premultipliers 
(non- functional) . 
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Input  Arguments: 

I PL  -  internal  element  identification  number  (2) 

NNO  -  number  of  element  defining  points  (6) 

XC  -  coordinates  of  element  defining  points 

YC 

ZC 

TTL  -  temperatures  at  element  defining  point 

PEL  -  pressures  at  element  defining  points 

QS  -  input  displacements  at  element  defining  points 

(not  used) 

IP  -  not  used 

NORD  -  total  element  degrees  of  freedom  (36) 

NOINK  -  number  of  storages  required  for  element 

stiffness  matr: v  (NORD  *  (NORD  +  l)/2) 

NN  -  not  used 

NL  -  array  containing  grid  point  numbers  of  element 

defining  points 

KK  -  suppression  control  for  element  stiffness  matrix 

KF  -  suppression  control  for  element  thermal  and 

pressure  load  matrices 

K8  -  suppression  control  for  element  stress  matrix 

KTS  ~  suppression  control  for  element  thermal  stress 

matrix 

KM  -  suppression  control  for  element  mass  matrix 

FN  -  not  used 

KVM  -  not  used 

KN  -  suppression  control  for  element  incremental 

stiffness  matrix 
IUSEL  -  not  used 

EPSLON  -  input  pre-strains  (not  used) 

SIGZER  -  input  pre-stresses  (not  used) 

MAT  -  input  temperature  interpolated  material  properties 

EXTRA  -  special  element  input 

GPAXEL  -  grid  point  axes  transformation  matrices 

NDIR  -  number  of  directions  of  element  defining  points  (3) 

NDEG  -  number  of  solution  degrees  of  freedom 

(2  -  translation  and  rotation) 

ICONT  -  grid  point  axes  indicator 

Output  Arguments: 

NERR  -  error  indicator 

AK  -  element  stiffness  matrix 

ANEL  -  element  incremental  stiffness  matrix 

FTEL  -  element  thermal  and  pressure  load  matrix 

S  -  element  stress  matrix 

SZALEL  -  element  thermal  stress  matrix 

AMASS  -  element  mass  matrix 
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5.  Output  Arguments  (Contd): 


DAMPV  -  element  viscous  damping  matrix 

DAMPS  -  element  structural  damping  matrix 

NRSEL  -  number  of  rows  in  element  stress  and  thermal 
stress  matrices 

NMASS  -  number  of  storages  required  for  element  mass 
matrix 

NDMPV  -  number  of  storages  required  for  element 
viscous  damping  matrix 

NDMPS  -  number  of  storages  required  for  element 
structural  damping  matrix 

NSEL  -  number  of  storages  required  for  element 

stress  matrix 

6.  Error  Returns: 

If  no  error,  then  NERR  is  set  to  zero 
If  I PL  ¥  2,  then  NERR  is  set  to  one 

If  NNO  /  6,  then  NERR  is  set  to  two 

If  NORD  ¥■  36,  then  NERR  is  set  to  four 

7.  Calling  Sequence: 

Call  PLUG2 ( I PL , NNO , XY , YC , Z C ,TTL , PEL , QS , IP , NORD , NERR , NOINK , 
AK , ANEL , FTEL , S , SZ ALEL , AMASS , DAMPV , DAMPS , NRSEL , NN , 
NL , NMASS , NDMPV , NDMPS , NSEL , KK , KF , K8 , KTS , KM , FN , KVM , 
KN , IUSEL , EPSLON , SIQZER , MAT , EXTRA , GPAXEL , NDIR , NDEG 
ICONT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes;  None 

11.  Storage  Required:  Total  Storage  required  is  Bytes 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required: 

ELTEST,  DTAPR,  MATPR,  NEWFTl^PTBM,  PTMGS ,  MAB,  AXTRA2 , 
DPQINT,  MINV,  PKM,  PSTM,  PFMTS ,  APRT,  PTBF,  PTFGS,  PKF, 

PFP,  PSTF ,  PFFTS ,  PNC1,  FNG1,  EPRT,  PLAS2,  PFMASS,  PMMASS 


14.  Remarks: 


None 


1.  Subroutine  Name:  PMMASS 

2.  Purpose:  To  calculate  the  membrane  contributions  to  the 
mass  matrix  for  the  triangular  thin  plate  element. 

3>  Equations  and  Procedures:  The  weight  of  the  element  is 
calculated  to  be  the  area  x  thickness  x  density.  This  is 
then  distributed  equally  to  the  3  corner  points. 

4.  Input  Arguments: 

T  •  thickness  of  element 

D00  «  area  of  triangle 

DENS  ■  density  of  element's  material 

5*  Output  Arguments:  AMS  *  local  mass  matrix 

6.  Error  Returns:  None 

7-  Calling  Sequence:  Call  PMMASS  (T,DOO>SINA>DENS,AMS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10c  Scratch  Tapeb:  None 

11.  Storage  Required:  Total  Storage  required  is  222,  ^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutine  Required:  None 

l1*.  Remarks:  None 


1.  Subroutine  Name:-  PFMASS 

2.  Purpose:  To  calculate  the  flexural- contribution  to  the 

mass  matrix  for  the  triangular  thin  plate  element. 

3.  Equations  and  Procedures:  The  weight  of  the  element  is 

calculated  to  be  the  area  x  thickness  x  density.  This  is 
then  distributed  equally  to  the  three  corner  points. 

4.  Input  Arguments: 

T  =  thickness  of  element 

D00  *  area  of  triangle 

DENS  «  density  of  element's  material 

5.  Output  Arguments:  AMS  *  local  membrane  mass  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence:  Call  PFMASS  (T.DOOjSINA^ENSjAMS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required*  Total  Storage  required  is  2BA1g  Bytes. 

12.  Subroutine  User:  PLUG 2 

13.  Subroutine  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Names  ASSY2 

2.  Purpose:  Assemble  membrane  and  flexure  contributions 
into  element  stiffness  matrix  for  triangular  thin  shell 
element 

3.  Equations  and  Procedures:  The  elements  of  the  Cl  matrix 
are  burned  into  the  C2  matrix  as  directed  by  the  input 
array  IASY, 

4.  Input  Arguments: 

Cl  :  Array  containing  input  elements  to  be 

assembled 

IASY  :  Array  containing  assembly  instructions 

N1  ,  Order  of  Cl 

5.  Output  Arguments: 

C2  :  Assembled  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(C2,  Cl,  IASY,  Nl) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  296-^g  Bytes. 

12.  Subroutine  User: 

PKM 

PKF 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  DCD 


2. 

3. 

>k 

5, 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 


Purpose:  To  evaluate  the  triple  matrix  product  of  a 
diagonal  matrix  D,  a  symmetric  matrix  S,  and  the  diagonal 
matrix  D. 


Equations  and  Procedures: 
AN  _«*  E  E  D  *  S„. 


(See  remarks) 


Input  Arguments: 

SYM:  Elements  of  symmetric  matrix  [S] 
D:  Elements  of  a  diagonal  matrix  03 

N:  Order  of  [S]  and  [Dj  matrices 

Output  Arguments: 

AN:  Elements  of  matrix  product 

Error  Returns:  None 

Calling  Sequence: 

CALL  DCD  (SYM,  D,  AN,  N) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes :  None 

Storage  Renul  * 

Total  Storage  required  is  Bytes. 

Subroutine  User:  PKF.,  PKM 
Subroutines  Required :  None 
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l4.  Remarks:  The  sxanmations  occur  over 


All  redundant  multiplications  (i.e.  those  where  zero  ele¬ 
ments  exist  in  the  D  matrix  and  those  where  the  upper 
elements  of  the  S  matrix  would  be  considered)  are  dispensed 
within  the  program  and  only  significant  multiplications 
take  place. 


1 


Subroutine  Name: 


DTAFR 


2.  Purpose:  Create  three  sub-elements  and  transformation 
matrix  from  system  to  local  coordinates 

3.  Equations  and  Procedures:  The  sub-element  coordinates 
are  calculated  from  the  system  coordinates  by  generating 
a  transformation  matrix  and  applying  it  to  the  system 
coordinates  array. 

4 .  Input  Arguments : 


R1,R2,R3 

E1,E2,E3,E 

R12,R13 

COORDS 


:  Reference  system  coordinates 
:  Arrays  containing  coordinate  differences 
j  Work  storage 

:  Reference  system  coordinates 


5.  Output  Arguments: 


RO  :  Origin  of  sub-elements  coordinate  system 

RL1.RL2,RL3  :  Local  sub-elements  coordinates 
TGS  :  Transformation  from  reference  system  to 

local  sub-element  coordinates  matrix 
COORDL  :  Local  sub-elements  coordinates 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

(Rl,  R2,  R3,  RL1,  RL2,  RL3,  El,  El,  E3,  E,  TGS,  RO, 

R12,  R13,  COORDS,  COORDL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  6EA1g  Bytes. 

12.  Subroutine  User:  PLUG2 


13.  Subroutines  Required;  MAB 

14.  Remarks:  None 
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1. 


Subroutine  Name :  MATPR 


2.  Purpose:  Generate  material  properties  matrices 
for  triangular  thin  shell  element 


3.  Equations  and  Procedures:  The  material  properties 
matrix,  EM;  is  generated  dependent  upon  the  formulation 
option  selected;  plane  stress,  plane  strain  or  normal. 
The  matrix  angle  and  stress  angle  is  determined  by 
examining  the  extra  element  defining  points.  The 
material  properties  matrix  is  then  oriented  to  the 
desired  material  angle  and  the  stress  angle  transforma¬ 
tion  matrix  is  generated. 

4.  Input  Arguments: 


NL 

XC,YC,ZC 


EX,EY,EZ 

GXY 

VXY,VZX.VYZ 

ALPHAX,ALPHAY 

GAMXY 

T 

EXGRID 

EXGRDL 

ALFHAM 

ALFHAG 

TGS 

1ST 

R1,R2,R3 

ROB 

RL1,RL2,RL3 

EES 

NEXGR 

AMAT 

L,M 


:  Array  containing  grid  point  numbers 
of  element  defining  points 
:  Arrays  containing  reference  system 
coordinates  for  element  defining  points 
:  Young’s  Moduli 
:  Rigidity  Modulus 
:  Poisson’s  Ratios 
:  Coefficients  of  thermal  expansion 
:  Material  angle 
:  Thickness 

:  Array  containing  coordinate  differences 
for  stress  angle  definition  points 
:  Array  containing  coordinate  differences 
for  material  angle  definition  points 
:  Not  used 
:  Not  used 

:  Transformation  matrix  from  reference 
system  to  sub-element  coordinates 
:  Plane  strain,  stress  control 
:  Not  used 

:  Origin  of  sub-element  coordinate  system 
:  Local  sub-element  coordinates 
:  Work  storage 
:  Work  storage 

:  Local  sub-element  coordinates 
:  Work  storage 


5.  Output  Arguments: 


EM  :  Material  properties  matrix 

EG  :  Transformed  mateilal  properties  matrix 

(oriented  to  material  angle) 

TES  :  Material  angle  transformation  matrix 

TESS  :  Stress  angle  transformation  matrix 
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6.  Error  Returns:  None 

7.  Calling  Sequence: 


(NL,  XC,  YC,  ZC,  EX,  BY,  GXY,  VXY,  EZ,  VZX,  VYZ, 

ALPHAX,  ALPHAY,  GAMXY,  T,  EM,  EG,  EXGRID,  EXGRDL, 
ALPHM,  ALPHG,  TGS,  1ST,  Rl,  R2,  R3,  ROB,  RL1,  RL2, 

RL3,  EES,  TES,  TESS,  NEXGR,  AMAT,  L,M) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  BEE^  Byt 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MTNV 

MaB 

BCB 


1^.  Remarks:  None 


1.  Subroutine  Name;  NEWFT1 

2.  Purpose:  Generate  membrane  and  flexural  thermal  loads 
for  triangular  thin  shell  element  in  local  coordinates 

3.  Equations  and  Procedures; 


BCT  = 

F  * 

CT 

BMT  = 

BCT 

*  TEMM 

BFT  = 

BCT 

*  TEMF 

v/here  F  and  CT  are  geometric  matrices  of  local  coordinate s, 
and  TEMM  and  TEMF  are  membrane  and  flexure  temperatures, 
respectively,  at  the  element  defining  points. 


4.  Input  Arguments; 


DELTM 

DELTF 

RL1,RL2,RL3 

TZ 

F,  BCT,  CT 
TEL 

TEMM,  TEMF,  L,M 


Average  membrane  temperature 
Average  flexure  temperature 
Local  coordinates 
T  for  structure 
Work  storage 

Temperatures  at  element  defining  points 
Work  storage 


5.  Output  Arguments: 

BMT  :  Membrane  thermal  load  in  local 

coordinates 

r>F?  ;  Flexure  thermal  load  in  local 

coordinates 


6.  Error  Returns:  None 


7 .  Galling  Sequence : 

(DELTM,  DELTF,  RL1,  RL2,  RL3,  T2,  BMT,  BFT,  F,  BCT, 

CT,  TEL,  TEMM,  TEMF,  L,  M) 

8.  Input  Tapes:  None 

9.  Outpui  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  516^  Bytes. 

12.  Subroutine  User:  PLUG2 


8.320 


! 


Subroutine  Required 


n  o 

JO. 

MINV 

MAB 

1^1 .  Remarks : 


None 
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1.  Subroutine  Name:  PTBM 

2.  Purpose:  Generate  membrane  transformation  matrix  • 

from  sub-element  to  geometric  coordinate  system  : 

3.  Equations  and  Procedures:  The  transformation  matrix  1 

is  generated  directly  from  sub-element  coordinate 

values  and  inversion.  ; 

t.  Input  Arguments*  j 

TGSM  :  Not  used  j 

RL1,RL-2,RL3  :  Sub-element  coordinates 

L,M  :  Work  storage 

5.  Output  Argument: 

i 

TBM  :  Sub-element  to  geometric  coordinate  | 

system  membrane  transformation  matrix  \ 

6.  Error  Returns:  None 

7.  Galling  Sequence:  S 

) 

(TBM,  TGSM,  RL1,  RL2,  RL3,  L,  M)  j 

8.  Input  Tapes:  None  ? 

) 

9.  Output  Tapes:  None  j 

10.  Scratch  Tapes:  None  j 

11.  Storage  Required:  Total  storage  required  is  1<9A1g  Sytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  MINV 

14.  Remarks:  None 


i 


8.322  : 
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1.  Subroutine  Name:  PTMGS 

2.  Purpose:  Generate  geometric  to  reference  coordinate 
system  membrane  transformation  matrix 

3.  Equations  and  Procedures:  The  transformation  matrix  is 
generated  by  utilizing  the  TGS  matrix.  The  effect  of 
eccentricities  and  mid-point  suppression  is  also 
reflected  in  the  generation  of  the  TGSM  matrix. 

4.  Input  Arguments: 

NL  :  Array  containing  element  defining 

grid  point  numbers 
EEZ  :  Eccentricity 

TBM  :  Not  used 

TGS  :  Reference  system  to  sub-element 

transformation  matrix 

5.  Output  Arguments: 

TGSM  :  Geometric  to  reference  coordinate  system 

membrane  transformation  matrix 

5.  Error  Returns:  None 

7.  Calling  Sequence: 

(NL,  EEZ,  TBM,  TGSM,  TGS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  *<78^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  D POINT 

2.  Purpose:  Generate  integrals  over  the  three  sub¬ 
elements  of  a  triangular  thin  shell  element 

3.  Equations  and  Procedures:  The  integrals  are  calculated 
by  using  the  triangular  integration  package  controlled 
by  the  function  subprogram  AI.  The  output  values  of 
the  integrals  are  placed  in  the  array  DELPQ. 

k.  Input  Arguments: 

RL1,RL2,RL3  :  Sub-element  coordinates 

R,Z,TEMP  :  Work  storage 

5.  Output  Arguments: 

DELPQ  :  Array  containing  integral  values 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(DELPQ,  RL1,  RL2,  RL3,  R,  Z,  TEMP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  AI  (Function) 

14.  Remarks:  None 


1.  Subroutine  Name:  PKM 


2.  Purpose:  Generate  membrane  contribution  to  triangular 
thin  shell  element  stiffness  matrix 

3.  Equations  and  Procedures:  The  membrance  contribution 
to  the  element  stiffness  matrix  is  formed  by  generating' 
sub-element  stiffness  matrices,  assembling  them  into  a 
work  area  and  then  transforming  from  the  work  area  to 
the  reference  coordinate  system. 

4.  Input  Arguments: 

AK1  : 

DELPQ  : 

EM  : 

EG 

TMS  : 

TFS  : 

IASEM  : 

AD  : 

CM  : 

AIJ  : 

IPRT  : 

EX  : 

EY  : 

GXY  : 

VXY  : 

ALPHAX  : 

ALFHAY  ; 

GAMXY  : 

T  : 

5 .  Output  Argument : 

AK  :  Membrane  contribution  to  element 

stiffness  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(AK,  AK1,  DELPQ,  EM,  EG,  TMS,  TFS,  IASEM,  AD,  CM,  AIJ, 
IPRT,  EX,  EY,  GXY,  VXY,  ALPHAX,  ALPHAY,  GAMXY,  T) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


Work  storage 
Sub-element  integrals 
Material  properties  matrix 
Material  Droperties  matrix  oriented 
to  material  angle 

Sub-element  to  reference  coordinate 
system  transformation  matrix 
Not  used 

Array  containing  assembly  parameters 

Work  storage 

Work  storage 

Work  storage 

Element  print  control 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Membrane  thickness 


11.  Storage  Required:  Total  storage  required  is  7^6^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

SYMPRT 

BCD 

ASSY2 

BCB 

14 .  Remarks :  None 
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Subroutine  Name: 


PSTM 


Purpose:  Generate  membrane  contribution  to  i  lament 
stress  matrix  for  the  triangular  thin  shell  element 

Equations  and  Procedures:  The  membrane  contributions 
to  the  element  stress  matrix  are  genei-ated  by  fir  t 
forming  the  stress  values  in  local  coordinates, 
transforming  to  reference  system  coordinates  and 
finally  applying  the  stress  angle  transformation. 

Input  Arguments: 


RL1 

RL2 

RL3 

TMS 

TFS 

EM 

EG 

SN 

AMI 

AM2 

TES 

EX 

EY 

GXY 

VXY 

ALFHAX 

ALPHAY 

GAMXY 

T 

R 

U 

X 

Y 


:  Sub-element  coordinates 


:  Sub-element  to  reference  coordinate  system 
transformation  matrix 
:  Not  used 
:  Not  used 

:  Material  properties  matrix  oriented  to 
material  angle 
:  Work  storage 
:  Work  storage 
:  Work  storage 

:  Stress  angle  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 

:  Membrane  thickness 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 


Output  Arguments: 


S  :  Membrane  contribution  to  element 

stress  matrix 


Error  Returns:  None 
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7. 


Calling  Sequence: 

(S,  RL1,  RL2,  RL3,  TMS,  TFS,  EM,  EG,  SN,  AMI,  AM2, 

TES,  EX,  EY,  GXY,  VXY,  ALFHAX,  ALPHAY,  GAMXY,  T,  R, 

U,  X,  Y) 

8,  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  6lC.,g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MAB 

MSB 

MATB 

14.  Remarks:  None 
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1.  Subroutine  Name:  PFMTS 

2,  Purpose:  Generate  membrane  thermal  load  and  membrane 
thermal  stress  matrices  for  the  triangular  thin  shell 
element 


3.  Equations  and  Procedures:  Subroutine  PFMV1  is  called 
to  generate  the  thermal  load  matrix  in  geometric 
coordinates  from  BMT.  This  matrix  is  then  transformed 
to  reference  system  coordinates  by  TMS.  The  thermal 
stress  matrix  is  generated  and  the  stress  angle  applied 
by  TESS. 

4.  Input  Arguments: 


DELTM 

TES 

TESS 

BMT 

EM 

EG 

TMS 

TFS 

EX 

EY 

GXY 

VXY 

FMV 

ALPHAXj 

ALPHAY 

GAMXY 

T 

TO 

TI 

FME 

EMI 

EMI 

SZLM 

SZLM1 

WRK 

DELPQ 


Average  membrane  temperature 
Material  angle  transformation  matrix 
Stress  angle  transformation  matrix 
Membrane  thermal  load  contribution 
in  sub-element  coordinate  system 
Not  used 

Material  properties  matrix  oriented  to 
material  angle 

Sub-element  to  reference  coordinate 

system  transformation  matrix 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Work  storage 

Coefficients  of  thermal  expansion 
Not  used 

Membrane  thickness 
Not  used 
Not  used 
Work  storage 
Work  storage 
Work  storage 
Work  storage 
Work  storage 
Work  storage 

Array  containing  sub-element 
integral  values 


5.  Output  Arguments: 

FT  :  Membrane  contribution  to  element 

thermal  load  matrix 

SZALEL  :  Membrane  contribution  to  element 
thermal  stress  matrix 
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6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FT,  DELTM,  SZALEL,  TES,  TESS,  BMT,  EM,  EG,  TMS,  TFS, 

EX,  EY,  GXY,  VXY,  FMV,  ALFHAX,  ALFHAY,  GAMXY,  T,  TO, 

TI,  FME,  EMI,  EMI,  SZLM,  SZLM1,  WRK,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  60Dl6  Bytes 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

PFMV1 

MAB 

MATB 

MSB 

14.  Remarks:  None 


1.  Subroutine  Name:  PFMV1 

2.  Purpose:  Generate  membrane  contribution  to  element 
thermal  load  matrix  in  local  coordinates 

3.  Equations  and  Procedures:  The  integral  values  across 
the  sub-elements  are  re-arranged.  The  membrane  contri¬ 
bution  for  each  sub-element  is  generated  in  FMV  by 
direct  formulation  as  a  function  of  the  integral  values 
and  the  material  properties  matrix.  The  sub-element 
matrices  are  placed  in  FMV1  and  pre-multipled  by  BMT. 

4.  Input  Arguments: 

DELC  :  Array  containing  sub-element  integral  values 
EG  :  Material  properties  matrix  oriented  to 

material  angle 

BMT  :  Array  containing  revised  formulation  for 

membrane  thermal  load  matrix  in  local 
coordinates 

FMV  :  Work  storage 

T  :  Membrane  thickness 

5.  Output  Arguments: 

FMV1  :  Membrane  thermal  load  matrix  in  local 

coordinates 

DELPQ  :  Re-arranged  sub-element  integral  values 

5.  Error  Returns:  None 

7.  Galling  Sequence: 

(FMV1,  DELC,  EG,  BMT,  FMV,  DELPQ,  T) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  766^  Bytes. 

12.  Subroutine  User:  PFMTS 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  APRT 


2.  Purpose:  Provide  print  of  intermediate  triangular 
thin  shell  element  computations 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

LT  :  Membrane/flexure  indicator 

LT1  :  Not  used 

LT2  :  Not  used 

DELPQ  Array  containing  sub-element  integral 
value  s 

RL1,  :  Sub-element  coordinates 

RL2, 

RL3' 

Rl,  :  Reference  system  element  coordinates 

R2, 

R3 

RO  :  Origin  of  sub-element  coordinate  system 

El,  :  Sub-element  coordinate  differences 

E2, 

E3, 

E 

TGS  :  Sub-element  to  geometric  coordinates 

transformation  matrix 

TBF  :  Flexure  sub-element  to  geometric  system 

coordinates  transformation  matrix 
TGSF  :  Flexure  geometric  to  reference  system 
coordinates  transformation  matrix 
-TMS  :  Membrane  sub-element  to  reference  system 

coordinates  transformation  matrix 
TFS  :  Flexure  sub-element  to  reference  system 

coordinates  transformation  matrix 
EM  :  Material  properties  matrix 

EG  :  Material  properties  matrix  oriented  to 

material  angle 

TES  :  Material  angle  transformation  matrix 

TBM  :  Membrane  sub-element  to  geometric 

coordinates  transformation  matrix 
TGSM  :  Membrane  geometric  to  reference  system 
coordinates  transformation  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

(LT,  LT1,  LT2,  DELPQ.  RL1,  RL2,  RL3,  Rl,  R2,  R3,  RO, 
El,  E2,  E3,  E,  TGS/TBF,  TGSF,  IMS,  TFS,  EM,  EG, 

TES,  TBM,  TGSM) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Stor  se  Required:  Total  storage  required  is  820^  Byt 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 
111 .  Remarks:  None 
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1.  Subroutine  Name;  PTFGS 


2.  Purpose ;  Generate  flexure  geometric  to  reference 
system  coordinates  transformation  matrix 

3.  Equations  and  Procedures:  The  flexure  geometric  to 
reference  system  coordinates  transformation  matrix  is 
generated  from  the  TGS  matrix  and  the  sub-element 
coordinates.  The  effect  of  mid- point  suppress 
contained  in  this  transformation  matrix  suppression. 

4.  Input  Arguments; 

NL  :  Array  containing  element  definition 

grid  point  numbers 

TGS  ;  Sub-element  to  geometric  transformation 

matrix 

TBF  :  Not  used 

XD,  ;  Work  storage 

YD, 

L, 

AI, 

BI 

AMAT  ;  Array  containing  sub-element  coordinates 

5.  Output  Arguments; 

TGSP  ;  Flexure  geometric  to  reference  system 

coordinates  transformation  matrix 

6.  Error  Returns;  None 

7.  Calling  Sequence; 

(NL,  TGS,  TBF,  TGSF,  XD,  YD,  L,  AI,  BI,  AMAT) 

8.  Input  Tapes;  None 

9.  Output  Tapes;  None 

10.  Scratch  Tapes;  None 

11.  Storage  Required:  Total  storage  required  is  582^  By 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  FKF 

2.  Purpose:  Generate  the  flexure  contribution  to  the 
triangular  thin  shell  element  stiffness  matrix 

3.  Equations  and  Procedures:  The  sub-element  flexure 
contributions  are  generated  and  assembled  into  a 
work  area.  A  transformation  is  then  applied  to  the 
reference  coordinate  system. 

*J.  Input  Arguments: 


“ASSY  : 

Control  indicating  flexure  contribution 
will  supplement  membrane  contribution  or 
flexure" contribution  alone  is  requested 

DELPQ  : 

Array  containing  sub-element  integrals 

EM  : 

Not  used 

EG  : 

Material  properties  matrix  oriented 
to  material  angle 

QMS  : 

Not  used 

TFS  : 

Flexure  sub-element  to  system  reference 
coordinates  transformation  matrix 

IASEM  : 

Work  storage  for  assembly  control  array 

AD  : 

Work  storage 

CM  : 

Work  storage 

AIJ  : 

Work  storage 

EX  : 

Not  used 

EY  : 

Not  used 

GXY  : 

Not  used 

VXY  : 

Not  used 

ALPHAX  : 

Not  used 

ALFHAY  : 

Not  used 

GAMXY 

Not  used 

T  : 

Flexure  thickness 

IPRT  : 

Intermediate  results  print  control 

AK1  : 

Work  storage 

ROW  : 

Work  storage 

ROWN  : 

Work  storage 

Output  Argument: 

AK  :  Flexure  contribution  to  element 

stiffness  matrix 


6.  Error  Returns:  None 
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7.  Calling  Sequence: 

(AK,  IASSY,  DELPQ,  EM,  EG,  TMS,  TFS,  IASSM,  AD,  CM, 

AIJ,  EX,  EY,  GXY,  VXY,  ALPHAX,  ALPHAY,  GAMXY,  T, 

IPRT,  AK1,  ROV»,  ROWN) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  772^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

DCD 

ASSY2 

CCB 

l4:  Remarks:  None 
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1.  Subroutine  Name:  CCB 

T 

2.  Purpose:  Perform  triple  product  multiplication,  A  SA, 
where  S  is  a  symmetric  matrix  stored  lower  half  by  rows 

3.  Equations  and  Procedures:  A  row  of  the  intermediate 
matrix  product  ATS  is  generated  at  a  time.  Prom  the 
product  of  this  row  and  A,  a  row  of  the  final  triple 
product  is  generated. 

Options  are  present  for  scalar  multiplication  of  the 
triple  product,  summing  the  triple  product  into  an 
existing  matrix,  and  deleting  upper  rows  of  the  matrices 
from  the  operation. 

k.  Input  Arguments: 

A  :  First  input  matrix,  doubly  dimensioned  in 

calling  program 

SYM  :  Second  input  matrix,  symmetric,  singly  sub¬ 
scripted,  stored  lower  half  by  rows 
ND,MD  :  Dimensioned  size  of  A 

N,M  :  Actual  size  of  A 

N1  :  Number  of  upper  rows  to  be  deleted  in  the 

operation 

SCAL  :  Scalar  multiplier 

IASSY  :  Sum  option  indicator 

ROW, ROWN :  Work  storage 

5 .  Output  Argument : 

T 

AN  :  Triple  product  of  A  SA,  symmetric,  singly 

subscripted,  stored  lower  half  by  rows 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(A,  SYM,  AN,  ND,  MD,  N,  M,  Nl,  SCAL,  IASSY,  ROW,  ROWN) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  566^  Bytes. 

12.  Subroutine  User:  PLUG2 
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13.  Subroutines  Required:  None 

14.  Remarks:  Hone 
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1.  Subroutine  Name:  PFP 

2.  Purpose:  Generate  element  pressure  load  matrix  for 
the  triangular  thin  shell  element 

3.  Equations  and  Procedures:  The  element  pressure  load 
matrix  is  generated  in  local  coordinates  and  then 
transformed  to  reference  system  coordinates. 

4.  Input  Arguments: 

TMS  :  Not  used 

TFS  :  Flexure  sub-element  to  reference  system 

transformation  matrix 

DELPQ  :  Array  containing  sub-element  integral  values 
P  :  Pressures  at  element  definition  points 

FPB  :  Work  storage 

!5.  Output  Arguments: 

FP  :  Element  pressure  load  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FP,  TMS,  TFS,  DELPQ,  P,  FPB) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  storage  required  is  2A2^g  bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  MATB 

14.  Remarks:  None 
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1. 


Subroutine  Name: 


PSTF 


2.  Purpose:  Generate  flexure  contribution  to  element 
stress  matrix  for  the  triangular  thin  shell  element 

3.  Equations  and  Procedures:  The  sub-element  stress 
matrices  are  generated  and  assembled  into  one  matrix. 
This  matrix  is  then  transformed  to  reference  system 
coordinates  and  the  stress  angle  is  applied. 

4.  Input  Arguments: 


RL1 

RL2 

RL3 

TMS 

TFS 

EM 

EG 

SNM 

TES 

EX 

EY 

GXY 

VXY 

ALPHAX 

ALPHAY 

GAMXY 

T 

R 

U 

X 

Y 

AMI 

AM2 

AM3 

AM4 

G 


:  Sub-element  coordinates 
:  Not  used 

:  Flexure  sub-element  to  reference  system 
coordinates  transformation  matrix 
:  Not  used 

:  Material  properties  matrix,  oriented  the 
material  angle 
:  Work  storage 

:  Stress  angle  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Flexure  thickness 
:  Not  used 
:  Not  used 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 


5.  Output  Argument: 


S  :  Flexure  contribution  to  element  stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence; 

(S,  RL1,  RL2,  RL3,  TMS,  TFS,  EM,  EG,  SNM,  TES,  EX,  EY, 
GXY,  VXY,  ALPHAX,  ALPHAY,  GAMXY ,  T,  R,  U,  X,  Y,  AMI, 
AM2,  AM3,  AM 4,  GJ 


8.340 


8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  1  equired  is  BD^g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MAB 

MSB 

MTB 

14.  Remarks:  None 


1 .  Subroutine  Name : 


PFFTS 


2.  Purpose :  Generate  flexure  contribution  to  element 
thermal  load  and  thermal  stress  matrices  for  the 
triangular  thin  shell  ele.ient 

3.  Equations  and  Procedures:  The  flexure  contribution  to 
the  element  thermal  load  matrix  in  loca!'  coordinates  is 
generated  by  calling  subroutine  PFFV1.  The  material 
angle  transformation  is  applied  and  thf.  transformation 
from  local  to  reference  system  coordinates  is  performed 

The  flexure  contribution  to  the  element  thermal  stress 
matrix  is  generated  and  transformed  to  the  selected 
stress  angle. 

4.  Input  Arguments: 


DELTF 

TES 

TESS 

BFT 

EM 

EG 

TMS 

TFS 

EX 

SY 

GXY 

VXY 

FFV 

ALPHAX 

ALPHAY 

GAMXY 

T 

TO 

T1 

EFI 

FFE 

FF 

SZLF 

SZLF1 

EFI 

WRK 

DELPQ 


:  Average  flexural  temperature 
:  Material  angle  transformation  matrix 
:  Stress  angle  transformation  matrix 
:  Flexural  thermal  load  formulation  revision 
:  Not  used 

:  Material  properties  matrix,  oriented  to 
material  angle 
:  Not  used 

:  Flexure  sub-elenent  to  reference  system 
coordinates  transformation  matrix 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
:  Not  used 
;  Flexure  thickness 
:  Not  used 
:  Not  used 
:  'work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 
:  Work  storage 

:  Array  containing  sub-element  integrals 


5 .  Output  Arguments : 


FT  :  Flexure  contribution  to  element  thermal 

load  matrix 

SZALEL  :  Flexure  contribution  to  element  thermal 
stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FT,  DELTF,  SZALEL,  TES,  TES3,  BFT,  EM,  EG,  TMS, 

TFS,  EX,  EY,  GXY,  VXY,  FFV,  ALFHAY,  ALFHAY,  GAMXY, 

T,  TO.  TI,  EFI,  FFE,  FF,  SZLF,  SZLF1,  EF1,  WRK, 

DELFQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  656^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutine  Required:  PFFVl 

PFFV1 

MAB 

MATH 

MSB 

14 .  Remarks :  None 
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1.  Subroutine  Name:  PFFV1 

2.  Purpose:  Generate  flexure  contribution  to  element 
thermal  load  matrix  in  local  coordinates 

3.  Equations  and  Procedures:  The  array  containing  the 
subelement  integral  values  is  re-arranged.  The  sub¬ 
element  thermal  load  matrices  are  generated  from  the 
integral  values  and  the  material  properties  matrix. 

The  sub-element  thermal  load  matrices  are  assembled 
into  one  matrix  and  then  multiplied  by  BFT  to  apply 
the  revised  thermal  load  formulation. 

4.  Input  Arguments: 

DELC  :  Array  containing  sub- element  integral 
values 

EG  :  Material  properties  matrix,  oriented  to 

material  angle 

BFT  :  Array  containing  revised  thermal  load 

formulation 
FFV  :  Work  storage 

5.  Output  Arguments: 

FFV1  :  Flexure  contribution  to  element  thermal 

load  matrix  in  local  coordinates 
DELPQ  :  Array  containing  re-arranged  sub-element 
integral  values 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(FFV1,  DELC,  EG,  BFT,  FFV,  DELPQ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  9AOl6  Bytes. 

12.  Subroutine  User:  PFFTS 

13.  Subroutine  Required:  None 

14.  Remarks:  None 


8.3^ 


t 


1.  Subroutine  Name:  PNC1 

2.  Purpose:  Non- functional 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  None 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  Bytes. 

12.  Subroutine  User;  PLUG2 

13.  Subroutine  Required:  None 

14.  Remarks:  None 


8.345 


I 


Subroutine  Name :  PNG1 

Purpose:  Non- functional 
Equations  and  Procedures:  None 
Input  Arguments:  None 
Output  Arguments:  None 
Error  Returns:  None 
Calling  Sequence :  None 
Input  Tapes :  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required:  Total  storage  required  is  F61g  Bytes. 
Subroutine  User:  PLUG2 
Subroutines  Required:  None 
Remarks :  None 
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1.  Subroutine  Name:  EPRT 


2.  Purpose:  Print  generated  triangular  thin  shell 
element  matrices 

3.  Equations  and  Procedures:  None 

4 .  Input  Argument  . : 

AK  :  Final  element  stiffness  matrix 

S  :  Final  element  stress  matrix 

ANEL  :  Non-functional 

FN  :  Non- functional 

FT  :  Final  element  thermal  load  matrix 

FP  :  Final  element  pressure  load  matrix 

SZALEL  :  Final  element  thermal  stress  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(AK,  S.  ANEL,  FN,  FT,  FP,  SZALEL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  Is  JJFO.^  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  Ncne 


8. 3*»7 


1.  Subroutine  Name:  PLAS2D 

2.  Purpose:  Non- functional 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  None 

5.  Output  Arguments:  Ncrw 

6.  Error  Returns:  None 

7.  Calling  Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  F61g  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  PTBF 


2.  Purpose:  Generate  flexure  sub-element  to  geometric 

axes  transformation  matrix 

3.  Equations  and  Procedures:  The  inverse  of  the  desired 
matrix  is  generated  by  direct  assignment  into  a  work 
area.  Inversion  is  performed  to  obtain  the  final 
transformation  matrix. 

4.  Input  Arguments: 

TGSF  :  Not  used 

RL1 

RL2  ;  Sub-element  coordinates 

RL3 

IPRT  :  Intermediate  element  print  indicator 

L  :  Work  storage 

M  :  Work  storage 

U  :  Work  storage 

TI  :  W ork  storage 

B  :  Work  storage 

BFF  :  Work  storage 

BFO  :  Work  storage 

5.  Output  Arguments:  None 

TBF  :  Flexure  sub-element  to  geometric 

transformation  matrix 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

(TBF,  TGSF,  RL1,  RL2,  RL3,  IPRT,  L,  M,  U,  TI, 

B,  BFF,  BFO) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  CCCl6  Bytes. 

12.  Subroutine  User:  PLUG2 

13.  Subroutines  Required: 

MAB 

MINV 

14.  Remarks:  None 


0.349 


Subroutine  Name:  PLUG  6 


Purpose:  To  form  the  element  matrices  for  a  triangular 
cross  section  ring  discrete  element  with  applications 
towards  the  analysis  of  thick  walled  and  solid  axisym- 
metric  structures  of  finite  length.  It  may  be  used  to 
form  the  assembly  of  any  axisymmetric  structure  taking 
into  account: 

1)  Arbitrary  axial  variations  in  geometry 

2)  Axial  variation  in  orientation  of  material  axes  of 
orthotropy 

3)  Radial  and  axial  variations  in  material  properties 

4)  Any  axisymmetric  loading  systems  including  pressure, 
prestrain,  prestress,  and  temperature 

The  complete  discrete  element  representation,  consists  of 
the  algebraic  expressions  for  the  following  matrices: 

i'I'i  Stiffness 
(2*  Pressure  load 
-'3)  Thermal  load 
(4)  Pre-strain  load 
i5)  Pre-stress  load 

(6)  Stress 

(7)  Mass 

?8)  Structural  damping 
(9)  Viscous  damping 

Equations  and  Procedures:  The  development  of  the  complete 
element  representation  arises  from  the  Lagrangian  (varia¬ 
tional)  equation 

+  i  &  $2  +  &  ^  + 


where 

qr  =  r  generalised  displacement  coordinates 
(j)^  -  total  potential  energy 

=  structural  damping  dissipation  energy 
<f>3  =  viscous 

=  kinetic  energy 

The  subsequent  development  of  the  element  matrices  is  then 
provided  in  algebraic  form  to  the  coded  program,  which 
follows  the  format: 


a 

dt, 


-Mit 


r  l 


=  0 
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4. 


(1)  The  input  data,  used  in  forming  the  matrices,  is 
processed  and  organized  for  computation. 

(2)  By  subroutine  TRAIC,  the  coordinate  transformation 
matrices,  and  the  table  of  integrals  is  formed.  In 
routine  TRAIE,  the  material  properties  matrices  are 
formed . 

(3)  Using  the  above  mentioned  matrices  and  integrals, 

the  program  then  generates,  the  stiffness, 
pressure  load,  thermal  load,  stress,  pre-strain, 
pre-stress,  mass,  structural  damping,  and  viscous 
damping  matrices,  and  the  stress,  thermal  stress, 
pre-strain,  pre-stress,  pre-strain  load,  and  pre¬ 
stress  load  vectors. 

(4)  After  each  significant  matrix,  vector,  etc.,  is 
formed,  the  program  prints  out  the  desired  results. 

Input  Arguments: 


I  PL 

NN0 

XC 

YC 

ZC 

TEL 

PEL 

Q$EL 

IP 

N0RD 

NR$EL 

IN0 

N0D0RD 

KK 

KF 

K$ 

KM 

KD$ 

KDV 

KN 

IU&EL 

EP$L0N 

$IGZER 

MAT 

EXTRA 

NDIR 

NDEG 

IC0NT 


Plug  number 

Number  of  node  points 

X  -  coordinates  of  noc  es  points 

Y  -  coordinates  of  noce  points 

2  -  coordinates  of  noce  points 

Temperatures  at  the  node  points 

Pressures  at  the  node  points 

Input  displacements  of  the  node  points 

Number  of  extra  cards 

Order  of  element  stiffness  matrix 

Number  of  rows  in  the  stress  matrix 

Number  of  nodes 

Node  point  numbers 

Code  for  computation  of  element  stiffness  matrix 
Code  for  computation  of  element  thermal  load 
Code  for  computation  of  element  stress  matrix 
Code  for  computation  of  element  mass  matrix 
Code  for  computation  of  structural  damping  matrix 
Code  for  computation  of  viscous  damping  matrix 
Code  for  computation  of  incremental  damping  matrix 
Dummy 

Pre-strain  load  vector 
Pre-Stress  load  vector 
Material  properties  matrix 
Extra  information  (angles,  etc.) 

Number  of  directions  of  movement  per  grid  point 
Number  of  types  of  movement  allowed  per  grid  point 
Code  for  use  of  grid  point  axes 


8.351 


Output  Arguments: 


NERR 

N0INK 

AKELXP 

ANEL 

FTXP 

$TR$XP 

XMA$XP 

DAMPV 

DAMP$ 

N$EL 

NMA$$ 

NP&L 

NP$$ 

GPAXEL 


Error  return 

Number  of  elements  in  lower  half  matrices 

Stiffness  matrix 

Incremental  stiffness  matrix 

Thermal  load  +  pressure  load  matrix 

Stress  matrix 

Thermal  stress  matrix 

Mass  matrix 

Viscous  damping  matrix 

Structural  damping  matrix 

Number  of  elements  in  stress  matrix 

Number  of  elements  in  mass  matrix 

Number  of  elements  in  viscous  damping  matrix 

Number  of  elements  in  structural  damping  matrix 

Grid  point  axes  transformation 


Error  Returns 


NERR 


0  No  Error 

1  Plug  Number  Incorrect 

2  Number  of  Nodes  Incorrect 

3  Number  of  Input  Points  Incorrect 

4  Order  of  Matrix  (nord)  Incorrect 


Culling  Sequence: 

(IPL,  NN0,  XC,  YC,  ZC,  TEL,  PEL,  Q$EL,  IP,  N0RD,  NERR,  N0INK, 
AKELXP,  ANEL,  FTXP,  $TR$XP,  T$,  XMA&XP,  DAMPV,  DAMP$, 

NR$EL,  IN0,  N0D0RD,  NMA$$,  NP$L,  NP$$,  N$EL,  KK,  KF,  K$, 

KM,  KD$,  KDV,  KN,  IU$EL,  EP$L0N,  $IGZER,  MAT,  EXTRA, 

GPAXEL,  NDIR,  NDEG,  IC0NT) 


Input  Tapes:  None 


Output  Tapes:  None 

Scratch  Tapes :  None 


Storage : 


TEMPI 

DZER0 


Subroutine  User:  ELPLUG 
Subroutines  Required: 


ELTE$T 

TRAIE 

TRAIK 

TRAIFP 

TFTPRT 

TRAIT$ 

TRAIM 

TF$PRT 

EXPC0L 

TRAIC 

TIEPRT 

TIKPRT 

TFPPRT 

TRAI$ 

TT$PRT 

TIMPRT 

TRAI$T 

PL6PRT 

TRCPRT 

TPRD 

EXP$IX 

T$TPRT 

TRAIFT 

TI$PRT 

MPRD 

TRAIF$ 

Remarks :  None 


1.  Subroutine  Name:  EXPC0L 

2.  Purpose:  To  generate  a  matrix  [b]  ,  given  a  specific 

input  matrix  [Aj  ,  for  Plug  6. 

The  purpose  of  this  operation  is  to  impose  the  conditions 
that  flexure  terms  "v"  are  zero. 

3.  Equations  and  Procedures:  The  matrix  terms  are  formed  by 
direct  assignment. 

4.  Input  Arguments:  [a]  :  Input  Matrix 

(j.  Output  Arguments:  [b]  :  Output  Matrix 

Error  Returns:  None 

7.  Calling  Sequence:  (A,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  16 6lfi  Bytes. 

12.  Subroutine  User:  PLUG  6 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


8.354 


1.  Subroutine  Name;  EXP$IX 

2.  Purpose:  To  generate  a  symmetric  matrix  [b]  > 

given  a  specific  input  symmetric  matrix  [a]  ,  for 

Plug  6.  The  purpose  of  this  operation  is  to  Impose  the 
condition  that  flexure  terms  "v’1  are  zero. 

3.  Equations  and  Procedures:  The  matrix  terms  are  formed 
by  direct  assignment. 

4.  Input  Arguments:  [a]  :  Input  Matrix 

5.  Output  Arguments:  [b]  :  Output  Matrix 

b.  Error  Returns:  None 

7.  Calling  Sequence:  (A,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  206^  Bytes. 

12.  Subroutine  User:  Plug  6 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  TRAIC 

2.  Purpose:  To  generate  coordinate  transformation  matrices 

for  triangular  ring  which  vary  with  coordinates  and 
generate  integrals  for  future  use. 

3.  Equations  and  Procedures:  The  coordinate  matrix  [GAMABQj 
is  formed  by  algebraic  assignment.  The  table  of  inte¬ 
grals,  DELINT,  is  formed  by  algebraic  methods  using  the 
function  subprogram  AI. 

4.  Input  Arguments:  R,Z:  Coordinates  of  node  points 

WIPR:  Print  control 

5.  Output  Arguments: 

GAMABQ:  Coordinate  matrix 
DELINT:  Table  of  integrals 
DCURL:  Matrix  transformation 

ISING:  Error  return  code 

6.  Error  Returns:  If  GAMABQ  cannot  be  generated  due  to 
singular  matrix  then  ISING  is  set  to  one. 

7.  Calling  Sequence:  (R,  Z,  GAMABQ;  DELINT,  DCURL,  ISING, 

WIPR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  R(3),  Z(3),  GAMABQ  (6,6),  DELINT  (12), 

DCURL  (4,6),  LL(6) ,  MM (6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MINV,  AI,  TESTJ,  TRCPRT 

14.  Remarks:  None 
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Subroutine-  Name:  TESTJ 

Purpose:  To  check  DELINT  (PLUG6)  for  any  negative  or 

incorrect  integrals;  If  any  errors  are  noted,  the 
integrals  are  recomputed  by  an  approximation  method. 

Equations  and  Procedures:  The  checks  are  performed  by 
logical  if  statements.  The  integral  approximation  is 

XPZQ  d  x  dZ  *5  XP  •  ZQ  •  A 

where 

X=f  K  +  Xg  +  Xg],  2  =  |  fz!  +  z2  +  Z3] 

A  -  \  f  Xi(VZ3)  +  X2(Z3-Zi)  +  X3(ZrZ2)] 

Input  Arguments:  DELINT  (I)  value  of  the  i  th  integral 

X:  X  coordinates 
Z:  Z  coordinates 
WIPR:  print  control 

Output  Arguments:  DELINT  (I):  recomputed  integral 

Error  Returns:  None 

Calling  Sequence:  CALL  TESTJ  (DELINT,  X,  Z,  WIPR) 

Input  Tapes :  None 
Output  Tapes:  None 
Scratch  Tapes:  None 

Storage  Required: 

DELINT  (12),  DLINT  (12),  X  (1),  Z  (1),  XO  (3),  ZO  (3), 
DELTAX  (1),  DELTAZ  (1),  XHAT  (1),  ZHAT  (1) 

Subroutine  User:  TRAIC 

Subroutine  Required:  None 

Remarks:  If  the  test  necessitates  recomputation,  the  new 
Integral  values  will  be  stored  in  the  old  locations,  thus 
destroying  the  originals. 
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1.  Subroutine  Name:  TRCPRT 

2.  Purpose:  To  print  elements  formed  in  TRAIC 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments: 

GAMAfiQ:  coordinate  matrix 

DELINT:  table  of  integrals 

DCURL  :  matrix  of  integrals 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

V.  Calling  Sequence:  (GAMABQ,  DELINT,  DCURL) 

8.  Input  Tapes:  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  320l6  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutine  Required:  None 

14.  Remarks;  None 
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1.  Subroutine  Name:  TRAIE 

2.  Purpose:  Tc  generate  the  transformed  matrix  of  elastic 

constants 

3.  Equations  and  Procedures:  The  routine 

a)  Generates  the  transformation  matrix 

b)  Generates  the  elastic  constants  matrix 

c)  Generates  the  transformed  elastic  constant  matrix 

4.  Input  Arguments: 

ER,  ETHETA,  EE  :  Moduli  of  elasticity  (Young's) 

VR0,  V0E,  VSR  :  Poissons  ratio 

GRS  :  Modulus  of  rigidity 

GAM  :  Angle  between  material  axes  and 

element  axes 
El  :  Work,  storage 

5.  Output  Arguments: 

TE0  :  Transformation  matrix 

EM  :  Elastic  constants  matrix 

E  :  Transformed  elastic  constant  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(ER,  ETHETA,  EZ,  VR0,  V0E,  VZR,  GRE,  GAM,  TE0,  EM,  E, 

El,  WIPR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required.  Total  Storage  required  is  602^  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MPRD,  TPRD 

14.  Remarks:  None 
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Subroutine  Name:  TIEPRT 

Purpose:  To  print  matrices  formed  in  TRAIE 

Equations  and  Procedures:  None 

Input  Arguments:  TE0  :  Transformation  matrix 

EM  :  Elastic  constant  matrix 

E  :  Transformed  elastic  constant  matrix 

Output  Arguments:  None 

Error  Returns:  None 

Calling  Sequence:  (TE0,  EM,  E) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  294^  Bytes. 
Subroutine  User:  PLUG6 
Subroutines  Required:  None 
Remarks :  None 
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1.  Subroutine  Name:  TRAIK 

2.  Purpose;  Generate  stiffness  matrix  for  triangular  ring 

3.  Equations  and  Procedures:  The  program  uses  the  table  of 
integrals  to  form  the  first  intermediate  matrix.  This 
matrix  is  then  transformed  to  form  the  final  stiffness 
matrix. 

4.  Input  Arguments: 

GAMABQ:  Transformation  matrix 

E  :  Transformed  elastic  constant  matrix 

DELINT:  Table  of  integrals 

WIPR  :  Print  control 

AKEL1,  AKEL2,  ACURI,:  Work  storage 

5.  Output  Arguments:  AKEL  :  Stiffness  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (GAMABQ,  E,  DELINT,  AKEL,  WIPR,  AKEL1, 

AKEL2,  ACURL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

GAMABQ  (6,6),  E(  10),  DELINT  (12),  AKEL  (21),AKEL1  (6,6), 
AKEL2  (6,6),  ACURL(21) 

12.  Subroutine  User:  PLUGS 

13.  Subroutines  Required:  TPRD,  MPRD 

14.  Remarks:  None 
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1.  Subroutine  Name:  TIKPRT 

2.  Purpose:  To  display  matrices  generated  in  TRAIK 

3.  Equations  and  Procedures:  None 

4.  Input  Arguments:  AKEL  :  Stiffness  matrix 

ACURL  :  Intermediate  stiffness  matrix 

•.).  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (AKEL,  ACURL) 

8.  Input  Tapes:  None 

y.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lES^g  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  Ncne 

14.  Remarks:  None 
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1.  Subrout-Ire  Name:  TRAIFP 

P.  Purpose:  To  generate  the  pressure  load  vector  for 
triangular  ring. 

5.  Ea nations  and  Procedures:  The  program 
1 .  ^  generates  necessar1,  constants 

P.)  Generates  pressure  load  vector  (non-transformed) 

3. )  Transforms,  pressure  load  vector 

4.  Tnput  Arguments: 

R,7:  Coordinates  of  node  points 

P:  Node  point  pressures 

OAMABQ:  Coordinate  transformation  matrix 

WIPR:  Print  control 

r>.  Output  Arguments: 

F^URLP:  Non-transformed  pressure  load  vector 

FP:  Transformed  pressure  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

'R,  7.,  P,  OAMABQ,  FP,  WIPR,  FCURLP) 

5.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  R(3M(3),  P(3),GAMABQ(6,6),FP(6), 
F(3),  FCURLP(6),  DELTA  (6) 

12.  Subroutine  User:  PLU06 

13.  Subroutines  Required:  TPRD 

14.  Remarks:  None 
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Subroutine  Name:  TFPPRT 


1. 

O 
•  * 

R. 

4. 


6. 

7. 

S. 

q. 

10. 

n. 

12. 

13. 

14. 


Fur-pose:  To  display  the  non-transformed  and  transformed 
pressure  load  vectors. 

Equations:  None 

Input  arguments: 

FP:  transformed  pressure  load  vector 
FCURLP:  non-transformed  pressure  load  vector 

Output  arguments:  None 

Error  returns:  None 

Calling  sequence:  (FP,  FCURLP) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage:  Total  Storage  required  is  1E816  Bytes 

Subroutine  User:  PLUG6 
Subroutines  required:  None 
Remarks :  None 
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1.  Subroutine  Name:  TGAIFT 


2.  Purpose:  To  generate  a  thermal  load  vector  for  a  triangular 
ring  element 

R.  Equations  &  Procedures:  The  input  matrices  are  manipulated 
by  matrix  algebra  to  form  the  thermal  load  vector. 

4.  Input  arguments: 

ALFBAR:  vector  of  coefficients  of  linear  thermal  expan¬ 

sion 

TMTZKO:  base  temperature 

GAMABQ:  transformation  matrix 

PCURL:  matrix  containing  integral  values 

E:  transformed  elastic  constant  matrix 

WIPR:  print  control 

5.  Output  arguments: 

FT:  thermal  load  vector 

6.  Error  returns:  None 

7.  Calling  sequence: 

(ALFBAR,  TMTZRO,  GAMABQ,  DCURL,  E,  FT,  WIPR) 

8.  Input  tapes:  None 

9.  Output  tapes:  None 

% 

10.  Scratch  tapes:  None 

11.  Storage:  ALFBAR (4),  GAMABQ (6, 6),  DCURL(4,6),  E(10).  Er- 

TEMPI (4),  TEMP2 (6),  SAVE(4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  MPRD,  TPRD 

14.  Remarks:  None 
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I.  Subroutine  Name:  TFTPRT 

■>,  Purpose:  To  display  thermal  loe.I  vector  for  triangular 
ring  element 

R.  Equations:  None 

h .  Input  arguments : 

FT:  thermal  load  vector 

ALFBAR:  coefficients  of  linear  expansion 

TMTZR0:  base  temperature 

5.  Output  arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (FT,  ALFBAR,  TMTZR0) 

8.  Input  Tapes:  None 
q,  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

II.  Storage  Required:  Total  Storage  required  is  250^  Bytes. 

12.  Subroutine  User:  PLU06 

1R.  Subroutines  Used:  None 
14.  Remarks:  None 


0.366 


1.  Subroutine  Name:  TRAI$ 


?,  Purpose:  To  generate  the  stress  matrix  for  triangular 
ring  element 

3.  Equations  and  Procedures:  Given  input  constants,  an 
intermediate  matrix  is  formed,  which  is  uhen  multiplied 
by  the  system  matrices  to  form  the  final  matrix 

h.  Input  Arguments: 

R,  7:  coordinates  of  node  points 

OAMABQ:  coordinate  transformation  matrix 

E:  elastic  constant  matrix 

WIPR:  print  control 

DZER0:  work  space 

TEMP:  node  point  temperatures 

3.  Output  Arguments:  $TRE$$:  stress  matrix 
Error  returns:  None 

7.  Calling  sequence:  (R,  Z,  GAMABQ^  E,  STRESS,  KuK,  CZERO, 

TEMP) 

3.  Input  Tapes,;  None 

Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  R(3)  Z(3),  GAMABQ(6,6),  E(10),  STRESS (4,6),  DZER0(4,6), 

TEMy'{4,6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  MPRD 

14.  Remarks:  None 
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Subroutine  Name:  TI$PRT 

Purpose:  To  display  the  stress  matrix  for  a  triangular 
ring  element 

Equations :  None 

Input  Arguments: 

$TRE$$ :  stress  matrix 

Output  Arguments :  None 

Error  Returns :  None 

Calling  Sequence:  ($TRE$$) 

Input  -Tapes :  Ncne 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage:  Total  Storage  required  is  lFC^g  Bytes. 
Subroutine  User:  PLUG6 
Subroutines  Used:  None 
Remarks :  None 
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1.  Subroutine  Name:  TRAIT$ 

Purposa:  To  generate  thermal  stress  vector  for  a 
triangular  ring  element 

3.  Equations  and  Procedures:  The  input  matrices  are  combined, 
using  matrix  algebra,  to  form  the  thermal  stress  vector. 

4.  Input  Arguments: 

E:  elastic  constant  matrix 

ALFBAR:  linear  thermal  expansion  coefficients 

TMTZR0:  base  temperature 

WIPR:  print  control 

5  v  Output  Arguments : 

T$:  thermal  stress  matrix 

fi.  Error  Returns:  None 

7.  Calling  Sequence:  (E,  ALFBAR,  TMTZR0,  T$,  WIPR) 

P.  Input  Tapes:  None 
0.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Storage : 

E(10),  ALFBAR (4),  T$(4),  SAVE(4) 

12.  Jubroutlne  User:  PLUG6 

13.  Subroutines  Used:  MPRD 

14.  Remarks:  None 


1.  Hub routine  Name:  TT$PRT 

?.  Purpose:  to  display  the  thermal  stress  vector  of 
triangular  ring  element 

R.  Equations:  None 

4.  Input  Arguments: 

T$:  thermal  stress  vector 

l5.  Output  Arguments:  None 

6.  Errcz-  Returns:  None 

7.  Calling  Sequence:  (T$) 

B.  Input  Tapes:  None 

Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  Total  Storage  required  is  iCO-^g  Bytes 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 

14.  Remarks c  None 


1.  Subroutine  Name:  TRAIM 

2.  Purpose:  To  generate  a  mass  matrix  for  a  triangular  ring 
element 

3.  Equations  and  Procedures:  The  program 

Cl)  Forms  a  transformation  matrix  [TMG] 

{?.)  Generates  a  matrix  [FlJ  which  is  a  function  of  the 
mass  coefficients.  „ 

(3)  Generates  a  matrix  [m]  which  is  a  function  of  [M] 
and  the  table  of  integrals. 

(4)  Generates  the  mass  matrix  [M]  which  is  a  function  of 
Cm]  and  the  transformation  matrix  [GAMABQ]  . 

[M]  =  [ GAMABQ]  T  [ft]  [GAMABQ] 

4.  Input  Arguments: 

AMASS1,  AMASS2:  mass  coefficients 

GAM:  angle  between  material  axes  and  element  axes 

GAMABQ:  coordinate  transformation  matrix 

DELINT:  table  of  integrals 

WIPR:  print  control 

XMASS1,  TEMP,  AMCRUL,  TEMPI,  AMBAR:  storage 

TMG :  transformation  matrix 

5.  Output  Arguments: 

XMA3S :  mass  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence: 

Camas si,  amass2,  gam,  gamabq,  delint,  xma$$ ,  wipr,  xmassi, 

TEMP,  TMG,  AMCURL,  TEMPI,  AMBAR) 

8.  Input  Tapes:  None 
o.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage: 

AMASS{2),  GAMABQ  (6, 6),  DELINT (12), 
XMASS(21),XMASS1(6,6),TEMP(6,6),  TMG (2, 2),  AMBAR (2, 2), 

TEMPI (2,2),  AMCURL (21) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  TPRD,  MPRD 

14.  Remarks:  None 
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1.  Subroutine  Name:  TIMPRT 

°.  Purpose:  To  display  the  mass  matrix  of  a  triangular  ring 
element 

R.  Equations:  None 

it.  Input  Arguments: 

XMASS:  mass  matrix 

AMCURL :  intermediate  mass  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (XMA$$,  AMCURL) 

8.  Output  Tapes:  None 
Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage: 

Total  Storage  required  is  lE81g  Bytes. 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 

14.  Remarks:  None 
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Subroutine  Name:  TRAIF$ 


2.  Furpose  :  To  generate  pre-strain  load  vector  for  a 
triangular  ring  element. 

3.  Equations  and  Procedures:  The  routine  uses  the  inputed 
matrices  and  combines  these  to  form  the  pre-strain  load 
vector. 

4.  Input  Arguments: 

EP$L0N:  Input  pre-strain  values 

GAMABQ:  Transformation  matrix 

DCURL:  Integral  matrix 

E:  Elastic  constant  matrix 

WIPR:  Print  control 

TEMP:  Dummy  storage 

TEMPI, 

TEMP2 :  Dummy  storage 

P$LMAT:  Dummy  storage 

6.  Output  Arguments: 

F$:  Pre-strain  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(EP$L0N,  GAMABQ,  DCURL,  E,  F$,  WIPR,  TEMP,  TEMPI,  TEMP2, 
P$LMAT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

EPSLON (4), GAMABQ  (6,6),  DCURL  (4,6),  E(10),  FS (6),  TEMP(l), 
TEMPl(l), TEMP2(6,4),  P$LMAT(6,4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Required:  MPRD,  TPRD 

14.  Remarks:  None 


1. 


Subroutine  Name :  TF$  PRT 


f>.  Purpose:  Display  pre-strain  load  vector  for  triangular 
ring 

B.  Equations:  None 

4.  Input  arguments:  F$:  pre-stra^r.  load  vector 
B .  Output  arguments:  None 
('.  Error  returns:  None 
7.  Palling  sequence:  (F$) 

B.  Input  tapes:  None 
o.  Output  Tapes:  None 
To.  Scratch  tapes:  None 

31.  Storage  required:  Total  Storage  required  is  lCO.^  Bytes. 
IP.  Subroutine  user:  PLUGS 
IB.  Subroutines  required:  None 
34.  Remarks:  None 
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1.  Subroutine  Name:  TRAI$T 

Purpose:  To  generate  the  pre-stress  load  vector  for  a 
triangular  ring  element 

3.  Equations  &  Procedures:  The  input  matrices  are  combined 
by  matrix  manipulations  to  form  the  pre-stress  load  vector. 

4.  Input  arguments: 

$IGZER:  column  of  pre-stresses 

GAMABQ:  transf ormat ion  matrix 

DCURL:  Integral  value  matrix 

WIPR:  print  control 

5.  Output  arguments: 

F$T:  pre-stress  load  vector 

r  I 

o.  Error  Returns:  None 

7.  Galling  sequence: 

.  ($IGZER,  GAMABQ,  DCURL,  F$T,  WIPR) 

B.  Input  tapes:  None 

0.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11 .  Storage  Required : 

$IGZER(4),GAMABQ(6,6),  DCURL(4,6),F$T(6),TEMP(6) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  required:  TFRD 

14.  Remarks:  None 
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1.  Subroutine  Name:  T$TPRT 

2.  Purpose:  Display  pre-stress  load  vector  for  triangular 
ring  element 

8.  Equations:  None 

4.  Input  arguments:  F$T 

c5.  Output  arguments:  None 

6.  Error  returns:  None 

7.  Calling  Sequence:  (F$T) 

8.  Input  tapes:  None 
r>.  Output  tapes:  None 

10.  Scratch  tapes:  None 

11.  Storage:  Total  Storage  required  is  lCO.^  Bytes. 

12.  Subroutine  User:  PLUG6' 

18.  Subroutines  used:  None 
14.  Remarks:  None 
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1.  Subroutine  Name:  PL6FRT 


2.  Purpose:  To  display  structural  damping,  viscous  damping, 
pre-strain  and  pre-stress  matrices  for  a  triangular  ring 
element 

3.  Equations:  None 

'k  Input  Arguments: 

P$XP:  structural  damping  vector 
DVXP:  viscous  matrix 
El:  pre-stress  multiplier  matrix 

F$LMAT:  pre-strain  multiplier  matrix 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (D$XP,  DVXP,  El,  P$LMAT) 

R.  Input  Tapes:  None 

n.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage:  D$XP(45),  DVXP(45),  21(4,4),  P$LMAT(4, 4) 

12.  Subroutine  User:  PLUG6 

13.  Subroutines  Used:  None 

14.  Remarks:  None 


Subroutine  Name:  PLUG  5 


Purpose:  To  form  the  element  matrices  for  a  doubly  curved 

ring  (toroidal  ring)  discrete  element.  This  ring  configura¬ 
tion,  defined  by  an  arbitrary  section  of  revolution  of  a 
complete  right  circular  toroidal  shell,  enables  smoothly 
continuous  idealization  of  general  axisymmetric  thin  shell 
problems. 

The  matrices  which  are  formed  are: 

il)  Stiffness  matrix 

2)  Stress  matrix 

3)  Thermal  load  matrix  +  pressure  load  matrix 

4)  Thermal  stress  matrix 

Equations  and  Procedures:  There  are  two  cases  treated  for 

this  type  of  element.  They  are: 

(1)  The  angles  of  the  interior  and  exterior  membranes  are 
not  equal  (Toroidal  section) 

(2)  The  angles  of  the  interior  and  exterior  membranes  are 
equal.  (Conic  section). 

In  the  second  case,  the  interior  angle  is  increased  by  a 
factor  of  .50°  so  that  they  can  be  treated  a3  in  case  one. 

A  special  case  arises  for  the  degenerate  situation  where 
the  two  angles  equal  90°.  In  this  case  a  different  path 
is  followed. 

A  variational  (Lagrangian)  approach  is  taken  in  formulating 
the  discrete  element  representation.  On  account  of  this,  it 
has  been  found  necessary  to  use  numerical  integration 
techniques,  namely  the  Romberg  technique  and  the  numerical 
quadrature  technique. 

The  sequence  of  procedures  is  as  follows: 

(1)  The  first  general  part  of  the  routine  processes  input 
information,  forming  constants  to  be  used  in  calcula¬ 
tions.  Also,  several  constants  are  extracted  from 
the  inputed  material  and  extra  matrices. 

(2)  After  testing  as  to  the  relative  values  of  the  membrane 
angles  (i.e.  equal  or  net),  the  program  selects  the 
correct  path  to  take  in  porming  the  integrals  used  in 
later  calculations.  Either  the  Romberg  or  Numerical 
Quadrature  methods  are  used  to  evaluate  the  integrals. 

(3) ■  Using  the  integrals  and  the  program  constants,  the 
program  forms  several  intermediate  element  matrices. 
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(4)  By  several  matrix  operations  (multiplications, 
transformations,  etc,),  the  stiffness  matrix,  AKEL, 
is  formed. 

(5)  In  like  manners,  the  program  forms  the  thermal  load 
(FTEI )  matrix,  the  pressure  load  (FPEL)  matrix,  the 
combined  thermal  and  pressure  load  (TPEL)  matrix,  the 
stress  ($EI.)  matrix,  and  the  thermal  stress  (T$EL) 
matrix. 

(6)  After  all  the  calculations  are  completed,  the  program 
calls  a  subroutine  to  print  all  the  matrices. 

Input  Arguments: 

TPL:  Plug  Number 

NN0:  Number  of  node  points 

R:  X  ••  coordinates  of  nodes 

Y:  Y  -  oo  rdinates  of  nodes 

Z:  Z  -  cot rdlnates  of  nodes 

TEMP:  Node  point  temperatures 

P:  Node  point  pressures 

Q$:  Node  point  i  puted  displacements 

IP:  Number  of  extra  cards 

KK:  Code  for  computation  of  element  stiffness  matrix 

Kl*':  Code  for  computation  of  element  thermal  load 

K.$:  Code  for  computation  of  element  stress  matrix 

KM:  Code  for  computation  of  element  mass  matrix 

KN:  Code  for  computation  of  element  incremental  matrix 

KD$ :  Code  for  computation  of  element  structural  damping 

KDV:  Code  for  computation  of  element  viscous  damping 

N0RD:  Order  of  element  stiffness  matrix 

MAT:  Material  properties  table 

EXTRA:  Specif ic  element  information 

ND1R:  Number  of  directions  for  each  grid  point 

NDEG:  Numuer  of  types  of  movement  allowed 

Il)$EL:  Dummy 

EP$I,0N:  Pre- strain  load  vector 

$0:  Pre-stresses 

INN#:  Number  of  nodes 

IC0NT:  Code  for  use  of  grid  point  axes 

NR:  Number  -f  row*  in  stress  matrix 

N#DE$:  Node  pumt  numbers 


5.  Output  Arguments: 

NERR:  Error  return 

N0INK:  Number  of  elements  in  lower  half  matrices 

AKEL:  Stiffness  matrix 

ANEL:  Incremental  matrix 

TPEL:  Therma3  load  +  pressure  load  matrix 

$EL:  .Stress  matrix 

T$EL:  Thermal  stress  matrix 

AMA$$:  Mass  ma.trix 

DAMPV:  Viscous  damping  matrix 

DAMP$:  Structural  damping  matrix 

N$EL:  Number  of  elements  in  stress  matrix 

NMA$$:  Number  of  elements  in  mass  matrix 

NDAMPV:  Number  of  elements  in  viscous  damping  matrix 

NDAMP$:  Number  of  elements  in  structural  damping  matrix 

GPAXEL:  Grid  point  axes  transformation  matrix 

6.  Error  Returns: 


NERR  =0  No  error 

=  1  Plug  number  incorrect 

=  2  Number  of  nodes  incorrect 

=  3  Number  of  input  points  incorrect 

=  4  Order  of  matrix  (nord)  incorrect 

7.  Calling  Sequence: 

(IPL,  NN0,  R,  Y,  Z,  TEMP,  P,  Q$,  IP,  ,n0RD,  NERR,  N0IUK, 
AKEL,  ANEL,  TPEL,  $EL,  T$EL,  AMA$$,  DAMPV,  DAMP$,  NR, 
INN0,  N0DE$,  NMA$$,  NDMPV,  NDMP$ ,  N$FL,  KI,  KF,  K$,  KM, 
KD$,  KDV,  KN,  IU$EL,  EP$L0N,  $0  MAT,  EXTRA,  GPAXEL, 
NDIR,  NDEG,  IC0NT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 


T(21)  W(i0,l8)  Wljfl8,l8)  R(2]  Y(2)  2(2)  P(2)  TEMP  (12,3) 
N0DE$(1)  W2  (18,18)  W3  (18,3.8)  TAKER  (l8,l8)  AKEL(lTl) 
GAMM  (10,18)  X 1(6,12}  YI(6,12)  X(6)  B(10,l8)  D(10,10) 
FTEL  (18,1)  GAM( 10,18)  FME0  (10,2)  FME1  (10,2)  FFEQ(10,2 
,2  E(2,2)  AIK(2,2)  AJK  (2,2)  ET0  (2,1)  ET1(2,1) 


V  J  1  J.  J  X  W  1  J  JL  ^  f  A’  A  ^  J  ■**  /  V  A  MM  t  -.W  f  -y 

(15,18)  XXI  (3)  EXTRA(l)  $CURL  (15.10)  T&SEL  (15)  TE1  (2,1 
TE2  (2,1)  EMI  (2,1)  EM2  (2,1)  EP$L0N  (1)'$0  (1)  MAT(l) 
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12.  Subroutine  User;  ELFLUG 

13.  Subroutines  Required; 

F4,  P5,  f6,  elte.$t,  mprd,  gammat,  $crlm,  bmatrx,  tprd, 

FCURL,  $0LVE,  DMATRX,  M$TR,  PLMX,  PRINT5 

14 .  Remarks ;  None 
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1.  Subroutine  Name;  M#TR 

?.  Purpose:  To  change  the  storage  mode  of  a  matrix. 

3.  Equations  and  Procedures:  MSTR  will  perform  the  operation 
on  the  right  when  MSA  and  MSR  are  equal  to 


MSA  MSR  «  PROCEDURE 

0  0  [a]  is  moved  to  [r] 

0  1  The  upper  triangle  elements  of  a  general  matrix 

are  used  to  form  a  symmetric  matrix 

0  2  The  diagonal  element  of  a  general  matrix  are  used 

to  form  a  diagonal  matrix 

1  0  A  symmetric  matrix  is  expanded  to  form  a 

ganerul  matrix 

1  1  [a]  is  moved  to  [r] 

1  2  The  diagonal  elements  of  a  symmetric  matrix  are 

used  to  form  a  diagonal  matrix 

2  O  A  diagonal  matrix  is  expanded  to  form  a  general 

matrix 

2  1  A  diagonal  matrix  is  expanded  to  form  a  symmetric 

matrix 

2  2  [A]  is  moved  to  [r] 

The  codes  for  M#A  and  M^R  stand  for 

0  General  matrix  form 

1  Symmetric  matrix  form 

2  Diagonal  matrix  form 

4.  Ipput  Arguments: 

Input  matrix 

N  Number  of  rows  and  columns  ln[A]  and  [r] 

M#A  Cede  designating  storage  mode  of  [A] 

M#R  Code  designating  storage  mode  of  jhj 
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5  .  Output  Arguments : 

[rJ  :  Output  matrix . 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (A*  R,  if,  M,  0  A,  M  0  R) 

8 .  Input  Tapes :  None 

9 .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage  Require  Total  Storage  required  is  29^  Bytes. 

12 .  Subroutine  User :  PLUG  5 

13 .  Subroutines  Required :  L  (fC 

14.  Remarks:  Matrix  [a] may  not  be  in  the  same  storage  as  [r]  . 
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1 .  Subroutine  Name:  R0MBER 


?.  Purpose:  To  integrate  f  (x)  from  x  =  a  to  x  -  b. 

Equations  and  Procedures:  The  precision  of  large  numbers 
in  terms  of  number  of  significant  digits  and  the  accuracy 
of  small  numbers  in  terms  of  number  of  significant  digits 
is  measured.  The  subroutine  terminates  when  either  of 
these  conditions  is  met. 

4.  Input  Arguments: 


A: 

B: 

N0SIG: 

NUM: 

K0DE: 

FUNCT: 

X: 

•>.  Output  Arguments: 

ITD0NE: 

FINTO : 

PRECIS : 


Lower  limit 
Upper  limit 

Number  of  correct  significant  digits 
(not  more  than  7} 

maximum  number  of  halvings  of  (a,b) 
to  be  made  (not  more  than  99) 
controls  the  form  of  the  print-out 
function  of  X  -  F4,  F5,  F6 
variable  of  integration 


number  of  iterations 
value  of  the  integral 
actual  number  of  significant  digits 
attained 


6.  Error  Returns:  None 

7.  Calling  Sequence:  (A,  B,  N0SIG,  PRECIS,  NUM,  ITD0NE, 

FINTG,  K0DE,  FUNCT,  X) 


8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  7^2^  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  FUNCT 

14 .  Remarks :  None 


t 

t 
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Subroutine  Name :  f4 

Purpose;  To  set  up  a  function  to.,  be  used  by  R0MBER 
in  the  computation  of  i£ ,  one  of  the  six 
basic  integrals  used  in  PLUG5. 

Equations  and  Procedures: 

P4  =  (x1)  x6-1  SIN2  (X1, )  /DEN 

where 

DEN  =  X3  -  Xg  X5  +  Xg  X5  COS  (X1)+  Xg  X4  SIN  (Xx) 

Input  Argument:  X:  array  containing  integration  arguments 
Output  Arguments:  F4:  functional  value 
Error  Returns:  None 

Calling  Sequence:  F4  (X) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  256^  Bytes. 
Subroutine  U*er:  R0MBER 

Subroutines  Required :  SIN,  C0S 


Remarks :  None 


Subroutine  Name:  F5 

Purpose:  To  set  up  a  function  to  be  used  by  R0MBER  in 
the  computation  of  i  u,  one  of  the  six  basic  integrals 
used  in  PLUG  5. 

Equations  and  Procedures: 

F5  =  2  sin  (xx)  cos(x1)/DEN 

where 

DEN  =  x^~  x2  x-  +  xg  x^  cos  (x.]_)  +  Xg  x^  sin  (x-jJ 
Input  Arguments: 

X:  array  containing  integration  arguments 
Output  Arguments:  F5  -  functional  value 
Error  Returns:  None 

Calling  Sequence:  F5(X) 

Input  Tapes :  None 

Output  Tapes :  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  282-^g  Bytes. 

Subroutine  User:  R0MBER 

Subroutines  Required :  SIN,  C0S 

Remarks :  None 


1.  Subroutine  Name:  F6 

2.  Purpose:  To  set  up  a  function  to  be  used  by  R0MBER 

in  the  computation  of  ijL  one  of  the  six  basic  integrals 
used  in  PLUG5 

3.  Equations  and  Procedures: 

F 6  »  CONST  •  Cos  (X1)/DEN 

where 

DEN  =  x^-XgX^  +  XgX^  Cos  (x^)  -  Xg  sin  (x^) 
OONST=  /  '  6 

i<xi)X6_1  *x6  ^  1 

4.  Input  Arguments: 

X:  array  containing  integration  arguments 
*5 .  Output  Arguments : 

F 6:  functional  value 

6.  Error  Returns:  None 

7.  Calling  Sequence:  F6(X) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Require.  Total  Storage  required  is  256^  Bytes. 

12.  Subroutine  User:  R0MBER 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  QUADI 


Puroose:  To  evaluate  integrals  by  an  enclosed  quadrature 
formula 

Equations  and  Procedures: 

Given  the  integrals  of  the  form 

,.i  _  rs  ,  ( 

x2  /  r..  +£  cosot.  3 

o  1  1 

v/hen  it  is  true  that 

s  cos  ou 


it  follows  that 

,  ,.1+1  i+1 


v;here 


i.1  ~  f 

12  ~  ~ —  L 


is  the  error  term. 


The  formula  converges  when 

I  77  I  1  /  S  1 


,1+m-J-l 


s  cos«*. 


s  cos  cx. 


4 .  Input  Arguments : 

Rl:  Change  in  coordinates  (distance) 

S:  Upper  bound  of  integration 

N:  Number  of  integral  (N  =  j  +1) 

CTRM:  Criteria  for  convergence  CTRM  = 


S  Cos* 


5 .  Output  Arguments : 

XI:  Value  of  approximation 

6.  Error  Returns:  If  the  quadrature  doesn't  converge  after 
1000  iterations,  the  program  terminates. 

7.  Calling  Sequence: 

CALL  QUADI  (Rl,  S,  N,  CTRM,  XI) 


8.388 


i 


None 


8.  Input  Tapes: 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  308^  Bytes. 

12.  Subroutine  User:  PLUG 5 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


8.389 


t 


1.  Subroutine  Name:  BMATRX 

2.  Purpose:  To  generate  a  matrix  [b]  ,  given  specific  input, 
for  PLUG5 

3.  Equations  and  Procedures:  The  routine  forms  Kie  terms  of 
the  matrix  by  direct  assignment 

4.  Input  Arguments: 

S:  Variable  used  to  form  terms  of  matrix 

5.  Output  Arguments 

B:  completed  transformation  matrix 

6.  Error  Returns:  None 

7.  ‘"‘ailing  Sequence:  (B  ,  $) 

8.  Input  Tapes:  None 
0.  Output  Tapes:  None 

10,  Scratch  Tapes:  None 

11,  Storage  Requireu ,  Total  Storage  required  is  398jg  Bytes. 

12,  Subroutine  User:  PLUG5 

13,  Subroutines  Required:  None 

14,  Remarks:  Typical  Element 

B (6,  9)  =  -1. 0/2.0  *  5  *  S  *  S) 


1. 

Subroutine  Name:  DMATRIX 

2. 

Purpose:  To  generate  a  matrix 
specific  input. 

[d]  ,  for  Plug  5, 

given 

8. 

Equations  and  Procedures:  The 
the  matrix  by  direct  algebraic 

routine  forms  the 
assignment 

terms- of 

4. 

Input  Arguments: 

V 

c 

CA 

CA2  : All  variables  used  to  form 

VA  the  terms 

DM 
DB 

YI 

5.  Output  Arguments: 

[D]  :  Completed  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence 

(D,  V,  C,  CA,  CA2,  VA,  DM,  DB,  YI) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 
10-  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  BA6^g  Bytes. 

12.  Subroutine  User:  Plug  5 

13.  Subroutines  Required:  None 

14.  Remarks:  Typical  Element 

D(3,2)  =  DB  *  (2.*V»YI(4,  1)  -  2.x  YI(6,2)  +  D(4,l)) 


8.391 


/ 


1.  Subroutine  Name:  GAMMAT 

2.  Purpose:  To  generate  a  matrix  [GAMM],  given  another  matrix 

3.  Equations  and  Procedures:  The  routine  rearranges  the  rows 
of  the  input  matrix  to  form  the  output  matrix. 

4.  Input  Arguments: 

B:  Input  Matrix 

5.  Output  Arguments: 

GAMM:  Output  Matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (GAMM,  B) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  lAA.^  Bytes. 

12.  Subroutine  User:  PI.U95 

13.  Subroutines  Required:  None 

14 .  Remarks : 

Typical  Element  GAMM  (4,  3)  =  B  (10,  3) 
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1.  Subroutine  Name:  FCURL 


2. 

3. 

4. 

5> 


6. 

7. 

8. 

9- 

10. 

11. 

12. 

13. 


Purpose:  To  generate  4  matrices,  [FME0]  ,[FMEl]  ,  [FFE0] 
and  [FFEl]  ,  given  specific  input,  for  Plug  5 

Equations  and  Procedures:  The  routine  forms  the  terms 
of  the  matrices  by  direct  algebraic  assignment. 

Input  Arguments: 

YT  variables  used  to  form 
S  rche  terms  of  the  matrices. 

LAMlJ 


Output  Arguments: 


FME0  ) 
FME1  l 
FF  E0  ( 
FFEl  j 


output  matrices 


Error  Returns :  None 

Calling  Sequence:  (FME0,  FME1,  FFE0,  FFEl,  YI,  $,  LAM1) 

Input  Tapes:  None 

Output  Tapes :  None 

Scratch  Tapes:  None 

Storage  Required: 

FME0(1O,2),  FFE0(1O,2),  FME1(10,2),  FFE1(10,2),  YI(6,12) 

Subroutine  User:  PLUG5 

Subroutines  Required:  None 

Remarks:  Typical  Element 

FME1(4,2)  =  $1  *  YI(4,5) 


1.  Subroutine  Name:  PLMX 

2.  Purpose  :  to  generate  a  matrix  ["* FPCQ ~] ,  given  specific 

input  for  Plug  5. 

3.  Equations  and  Procedures:  The  routine  forms  the  terms  of 
the  matrix  by  direct  algebraic  assignment-. 

4.  Input  Arguments: 

YI  ) 

C0N0T1  l  .  Variables  used  to  form 

C0N0T2  /  *  the  terms  of  the  matrix 

PI  j 

8.  Output  Arguments: 

FPCQ  Output  Matrix 
6.  Error  Returns:  None 

•7.  Calling  Sequence:  (FPCQ,  YI,  C0N0T1,  C0N0T2,  PI) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  228^  Bytes. 

12.  Subroutine  User 

PLUG  5 

13.  Subroutines  Required:  None 

14.  Remarks:  Typical  Element 

FPCQ  (6,3)  =  CON0T1  *  (PI  *  YI  (1,2)  -  CON0T2  *  YI(l,3)) 
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/ 


1.  Subroutine  Name:  SCRLM 

2.  Purpose:  To  generate  a  matrix  [$CURLj  ,  given  specific 
input,  for  PLUG 5 

3.  Equations  and  Procedures:  This  routine  forms  the  terms 
of  the  matrix  by  direct  algebraic  assignment. 

4.  Input  Arguments: 

XXI  t 
E: 

H:  Variables  used  to  form  the  terms  of  the  matrix 

CONT : 

RP: 

ALF1 : 

Rl: 

I  AMI: 

5 .  Output  Arguments : 

SCURL  s  output  element  stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

($CURL,  XXI,  E,  H,  C0NT,  PP,  ALF1,  Rl,  LAM1) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  9F81g  Bytes. 

12.  Subroutine  User:  PLUG5 

13.  Subroutines  Required:  None 

14.  Remarks: 


Typical  Element 

$CURL(4,8)  *  $CURLlr4,6)  *  3.0  *  XX2  -  E(l,2)  *  6.0  *  XXI 


1.  Subroutine  Name:  $0LVE 

2.  Purpose:  To  solve  for  lambdas  as  functions  of  XI. 

i.e.  A  =  f  (XI) 


3.  Equations 'and  Procedures:  The  routine  uses  algebraic 
techniques  to  arrive  at  a  solution. 


eg. ) 

TAM9  -  x0S 

XI  , 

(Al  +  -RF--) 

Rl-R£>* 

Tsur 

(Al)  +  SIN  |A1  +  Xlj 

where  Al,  Rl, 

RP 

are  constants 

LAM3  and  LAM4  are 

similar 

4. 

Input  Arguments: 

Al) 

Rl' 

RPl 

Xlj 

^.Variables  used  for  calculation 
(of  the  lambdas 

5. 

Output  Arguments: 

LAM2  ) 

LAM3  > :  Output  values 

lam5/ 

6. 

Error  Returns: 

None 

7. 

Calling  Sequence: 

(Al,  Rl,  RP,  XI,  LAMP,  LAM3,  LAM4,  C0NT) 

8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required: 

Total  Storage  required  Is  33l<1g  Bytes. 

12. 

Subroutine  User: 

PLUG  5 

13. 

Subroutines  Required: 

None 

14. 

Remarks :  None 
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1.  Subroutine  Name:  PRINT5 

2.  Purpose:  To  print,  as  output,  the  intermediate  matrices 
and  single  valued  variables,  generated  in  Plug  5. 

3.  Equations  and  Procedures:  The  routine  contains  the  proper 
write  and  format  statements. 

4.  Input  Arguments:  All  the  variables  to  be  printed. 

(See  calling  sequence) 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (C,  DM,  DB,  PHIB,  RP,  $,  BB,  RT,  F$J1, 
P$I2,  C0$1,  $IN1,  XI,  YI,  B,  D,  K,  Wl,  H,  ALF2,  ALF1,  W3, 
Rl,  R2,  21,  22,  EP,  £T,  VPT,  AXI,  ABETA,  Til,  T10,  T2I, 
T20,  LAM1,  AIK,  AJK,  ET0,  ET1,  ALT0,  ALT1,  E,  FME0,  FME1, 
FFE0,  FFE1,  FTEL,  PI,  P2,  C0N$T1,  C0N$T2,  FPCQ,  FPEL, 
$CURL) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes;  None 


12. 

13. 

14. 


Subroutine  User:  PLUG  5 
Subroutines  Required :  None 
Remarks :  None 


1 .  Subroutine  Name :  PLUG  14 

2.  Purpose:  To  compute  the  element  stiffness,  stress  and 
diagonal  mass  matrix. 

3.  Equations  and  Procedures:  The  routine  first  generates  the 
transformation  matrix,  PH,  and  prints  it  out  (using  P14PRT) 
if  option  is  in  effect.  It  then  calculates  the  stress  matrix 
depending  on  input  code  KI  0  2.  It  now  calculates  the  stiff¬ 
ness  matrix,  transforms  it  to  system  coordinates  using  MULTF, 
and  expands  it  using  P00F.  If  KI  =  2,  the  routine  will  then 
calculate  the  lumped  mass  matrix  and  expand  it  using  P00F. 

4.  Input  Arguments: 

IPL:  Plug  Number  (must  equal  14) 

NN0:  Number  of  node  points  (must  equal  4) 

X,YfZ:  Three  vectors  of  length  four  each  having  the  X,Y, Z 
coordinates  of  the  4  node  points. 

N0RD:  Order  of  stiffness  and  mass  matrix  (must,  equal  24) 

KI:  Selective  calculation  code 

MAT:  Mat erl al  properties  array 

MAT  (2)  =  E  -  Young's  Modulus 
MAT  (5)  =  u  -  Poisson  Ratio 
MAT  (22)  =  DENSM  -  mass  density 
MAT  (23)-  =  C0NT  -  print  control 
EXTRA:  Extra  input  array  (EXTRA  (1)  =  T  =  thickness) 

5 .  Output  Arguments : 

NERR:  Error  return  code 

N0INK:  Number  of  elements  in  symmetric  stiffness  matrix 
(equals  300) 

AKELXP:  Singly  subscripted  array  of  element  stiffness  matrix 
(symmetric  lower  half  by  rows) 

SELXP:  Singly  subscripted  array  of  element  stress  matrix 
■  size  X  x  24 

AMASS:  Singly  subscripted  array  of  element  mass  matrix 
(symmetric  lower  half  by  rows) 

NRSEL:  Number  of  rows  in  stress  matrix  (equals  1) 

NMASS:  Mumber  of  elements  in  symmetric  mass  matrix  (equals 
300) 

NSELXP:  Number  of  elements  in  stress  matrix  (equals  24) 
TSELXP:  Thermal  stress  vector  of  length  1  is  set  to  zero. 
TPELXP:  Applied  load  vector  of  length  24  is  set  to  zero. 

6.  Error  Returns:  If  NERR  /  0  then  error  was  detected  in  input 
arguments.  (See  ELPLUG) 

7.  Calling  Sequence: 

(IPL,  NN0,  X,  Y,  Z,  TEMP,  P,  QS,  IP,  N0RD,  N0INK,  AKELXP,  ANEL, 
TPELXP,  SELXP,  TSELXP,  AMASS,  NDMFV,  NDMPS,  NSELXP,  KI,  KF, 
KS,  KM,  KDS,  KDV,  KN,  IUSEL,  EPSI0,  S0,  MAT,  EXTRA,  GPAXEL, 
NDIR,  NDEG,  IC0NT) 


8.  Input  Tapt3:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11:  Storage  Required:  505  decimal  locations  of  work  storage  used 
from  unlabeled  common  block. 

12:  Subroutine  User:  ELPLUG 

13s  Subroutines  Required: 

ELTEST,  P14PRT,  MUI.TP,  P00F 

14:  Remarks:  All  arguments  in  calling  sequence  not  defined  were 
not  used  in  subroutine. 


1 .  Subroutine  Name :  MULTF 

2.  Purpose:  To  preform  the  matrix  multJ  p.1  i  cation  B  transpose 
times  A  times  B,  where  A  is  a  symmetric  matrix  and  B  is  a 
rectangular  matrix. 

3.  Equations  and  Procedures: 

C  =  B  (transpose)  *  A  *  B 

The  routine  first  generates  the  product  of  a  row  of  B 
transpose  times  each  column  of  A  and  stores  this  in  a 
temporary  storage  V.  It  then  multiplies  V  times  the  appro¬ 
priate  columns  of  B  to  generate  the  corresponding  row  of  C. 

4.  Input  Arguments: 

A  :  The  symmetric  input  matrix  doubly  dimensioned  8x8 

with  only  symmetric  lower  half  needed. 

NA:  Order  of  A  must  be  less  than  9. 

B:  The  rectangular  input  matrix  doubly  dimensioned 

8x12  with  size  NA  x  NBC 

NBC:  Number  of  columns  of  B  (less  than  12) 

V:  A  work  storage  vector  of  length  NA. 

5 .  Output  Arguments : 

C:  Tiie  results  of  the  multiplication,  doubly  dimensioned 

12x12  with  only  symmetric  lower  half  returned.  Size 
is  NBC  x  NBC. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(A,  NA,  B,  NBC,  V,  C) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  350l6  Bytes. 

12.  Subroutine  User:  PLUG  14 

13.  Subroutines  Require:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  POOF 

2.  Purpose:  Expand  element  stiffness  matrix  (lower  symmetric 

by  rows  or  upper  symmetric  by  col)  and  element  thermal 

load  vector  and  add  the  components  into  the  expanded  matrix 
and  vector  in  their  appropriate  positions. 

3.  Procedure:  Using  the  decoding  vector  determine  the  locations 

of  the  components  of  the  element  stiffness  matrix  in  the 

new  expanded  (assembled  stiffness)  matrix  and  add  these 
old  element  components  into  their  new  positions.  The  same 
procedure  is  used  for  the  thermal  load  vector. 

4.  Input  Arguments: 

LIST  -  decoding  vector  consisting  of  NORD  components 

the  subscript  of  each  component  gives  the  old 
(element)  row  or  column  and  the  component 
itself  gives  the  row  or  column  in  the  new 
expanded  matrix. 

NORD  -  order  of  old  element  stiffness  matrix  (AKEL) 

also  length  of  old  thermal  load  vector  (FTEL). 
AKEL  -  old  element  stiffness  matrix  [upper  symmetric 

by  cols]  . 

FTEL  -  old  thermal  load  vector. 

5.  Output  Arguments: 

AK  -  expanded  stiffness  matrix  [upper  symmetric 

by  cols]  . 

FCOL  -  expanded  thermal  load  vector. 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

( LIST , NORD , AKEL , FTEL , AK , FCOL ) 

8.  Input  Tapes:  None 

9*  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  300^  Bytes. 

12.  Subroutine  Users:  PLUG8 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


8.401 


1.  Subroutine  Name:  P14PRT 


2.  Purpose:  To  prLrit  out  on  the  system  output  unit  the  vari 
ables  in  the  input  argument  list. 

3.  Equations  and  Procedures: 

>1.  Input  Arguments: 


1)12: 

D15: 

D35: 

ALX: 

ALY: 

ALZ'. 

PX: 

PY: 

PZ: 

XP4: 

YP4: 

PH: 


variable  printed  out  and  labiled  1.12 

11  ll  «  M  it  y  y 

11  11  11  11  n  |  -^1 

"  "  "  "  »  r  AMX 

a  ..  II  .1  .1  LAMY 

"  "  "  "  "  I AMZ 

"  II  11  II  .1  PI:  IX 

11  11  11  n  11  PSIY 

11  n  11  it  11  PSIZ 

II  It  I!  II  II  )£p2| 

n  11  it  it  11  yp4 

An  8  x  12  matrix  printed  out  and  labled  ELEMENT 
TRANSFORMATION  MATRIX 


5.  Output  Arguments:  None 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

(D12,  D15,  D35>.  ALX,  ALY,  ALZ,  PX,  PY.  PZ,  XP4,  YP4,  PH) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

IT .  Storage  Required:  Total  Storage  required  is  ^lS-^g  Bytes. 

12.  Subroutine  User:  PLUG  14 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1 
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1. 


Subroutine  Name: 


PLUG  8 


2.  Purpose:  Generate  element  matrices  for  the  trapezoidal 

ring  element. 

3.  Equations  and  Procedures: 

a)  Call  subroutine  ELTEST  to  verify  input  control  values. 

b)  Initialize  material  properties,  node  point  pressures, 
geometric  constants  and  integration  constants. 

c)  Call  subroutine  SUBINT  to  calculate  other  Integrals. 

d.)  Define  transformation  matrix  to  transform  to  displacement 
degrees  of  freedom. 

e)  Generate  mechanical  property  matrix,  thermal  coefficient 
matrix,  stiffness  matrix  and  thermal  load  matrix. 

f)  Call  subroutine  POOP  to  calculate  pressure  load  vector. 

g)  Call  subroutine  ERIC  to  inflate  stiffness  matrix  and 
element  thermal  load  vector. 

h)  Generate  stress  matrix  and  thermal  stress. 

i)  Call  P8MASS  to  generate  element  mass  matrices. 

j)  Print  debug  print  if  requested. 

4.  Input  Arguments: 

I PL  -  internal  element  identification  number  (8) 

NNO  -  number  of  element  defining  points  (4) 

XC  -  coordinates  of  element  defining  points 

YC  -  coordinates  of  element  defining  points 

ZC  -  cooidlnates  of  element  defining  points 

TPS  -  temperatures  at  element  defining  points 

PVP  -  pressures  at  element  defining  points 

QS  -  input  displacements  at  element  defining  points 

(not  used) 

IP  -  not  used 

NORD  -  total  element  degrees  of  freedom  (12) 

K1  -  number  r"  storages  required  for  element  stiffness 

matrix  (»,JRD*(N0RD  +  l)/2) 

INNO  -  not  used 

NL  -  array  containing  grid  point  numbers  of  element 

defining  points 

KK  -  suppression  control  for  element  stiffness  matrix 

KAF  -  suppression  control  for  element  thermal  and 

pressure  load  matrices 

jKS  -  suppression  control  for  element  stress  matrix 

KTS  -  suppression  control  for  element  thermal  stress  matrix 

KAM  -  suppression  control  for  element  mass  matrix 

KDS  -  suppression  control  for  structural  damping  matrix 

KDV  -  suppression  control  for  structural  viscous  matrix 

KSN  ’  -  suppression  control  for  element  incremental 

stiffness  matrix 
IUMEL  -  not  used 

EPSIO  -  input  pre-strains 
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Input  Arguments,  Contd: 


SO 

MAT 

EXTRA 

GPAXEL 

NDIR 

NDEG 

ICONT 


input  pre-stresses 

input  temperature  interpolated  material  properties 
special  element  input 

grid  point  axes  transformation  matrices  (not  used) 
number  of  directions  of  element  defining 
points  (3) 

number  of  solution  degrees  of  freedom 

(1-translation) 

grid  points  axes  indicator 


Output  Arguments: 


NERR 

9K 

ANEL3 

XT 

SEL 

3ZALEL 

AMASS 

DAMPV 

DAMPS 

NRSEL 

NMASS 

NDMPV 

NDMPS 

NSEL 


error  indicator 

element  stiffness  matrix 

element  incremental  stiffness  matrix 

element  thermal  and  pressure  load  matrix 

element  stress  matrix 

element  thermal  stress  matrix 

element  mass  matrix 

element  viscous  damping  matrix 

element  structural  damping  matrix 

number  of  rows  in  element  stress  and  thermal 

stress  matrices 

number  of  storage  required  for  element  mass  matrix 
number  of  storages  required  for  element  viscous 
damping  matrix 

number  of  storages  required  for  element 
structural  damping  matrix 

number  of  storages  required  for  element  stress 
matrix 


Error  Returns: 


If  no  error,  then  NERR  is  set  to  zero 

If  IPL  t  28,  then  NERR  is  set  to  one 

If  NNO  4,  then  NERR  Is  set  to  two 

If  NORD  f  12,  then  NERR  Is  set  to  four. 


Calling  Sequence:  . 

Call  PLUG8(IPL, NNO, XC,YC,ZC, TPS, PVP,QS, IP, NORD, NERR, K1,ZK, 
ANEL3 , XT . SEL , SZ ALEL , AMASS , DAMPV , DAMPS , NRSEL , INNO , 
NL , EPSIO , SO , MAT , EXTRA , GPAXEL , NDIR , NDEG  s ICONT ) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  588El6  Bytes. 
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12.  Subroutine  User: 


EL PLUG 


33-  Subroutines  Required: 

ELTEST , SYMPRT , LOC , ELTEST ,MPRD , TPRD , MSTR , SUBINT , ZMRD , ZTRD , 
KMPY, ERIC, POOP, P8MASS 

14.  Remarks:  None 


1.  Subroutine  Name:  P8MASS 

2.  Purpose:  To  generate  element  mass  matrix  for  PLUG8. 

3.  Equations  and  Procedures:  The  (8x8)  reduced  mass  matrix 

AMEL3  is  formed  in  terms  of  the  integration  constants. 

Then  the  transformation  to  displacement  degrees  of  freedom 
is  performed.  The  matrix  is  then  expanded  to  order 
(NORDxNORD)  by  subroutine  POOP. 


4. 


Input 

Arguments: 

DENSM 

— 

element  mass  density  vector  (first  element) 

HH 

— 

transformation  to  displacement  degrees  of 
freedom 

NORD 

- 

order  of  mass  matrix  («  12) 

NMASS 

- 

number  of  elements  in  mass  matrix  (  =  78) 

110  - 

132  - 

integration  constants  for  rectangular  cross 
section  ring 

CHH 

- 

working  storage  (64) 

SH 

- 

working  storage  (64) 

LIST 

code  list  for  transforming  system  reduced 
degrees  of  freedom  to  system  expanded  degrees 
of  freedom 

AMASS 

- 

work  storage  (36) 

5.  Output  Arguments: 

AMASE  -  resultant  mass  matrix  (symmetric  12  x  12) 

AMEL3  -  order  8  MASS  matrix  before  transformation 

and  expansion  to  order  12 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  P8MASS(DEN3M,HH, AMASE, NORD,NMASS, 110,111, 112, 120, 121, 
122, 130, 131, 132, CHH,SH,AMEL3, LIST, AMASS) 


8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


11.  Storage  Required: 

Total  Storage  required  is  6C2  Bytes. 
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/ 


12.  Subroutine  User:  PLUG 8 

13*  Subroutines  Required: 

MPRD 

TPRD 

MSTR 

POOP 

14.  Remarks:  None 
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1. 

Subroutine 

Name: 

SUBINT 

2  • 

Purpose: 
for  PLUG 8 

Solve 

element 

integral  used  in  Integration  constants 
matrix  definitions. 

*3 

J  • 

Equations 

and  Procedures: 

Solve  for  H  given  R,  Z  and  Q  for  values  of  0,  1  and  2.  The 
R  and  Z  values  are  coordinates  of  a  trapezoid  area.  The  area 
is  divided  into  two  triangles  (A  and  B).  The  centroid  and 
area  of  each  triangle  is  found 


^A1  ZA*  RB*  V  ^AA*  V 


<AA  ZA 

Ra 


hb  3 


(AB  zbQ^ 
Rb 


A.  Input  Arguments: 

R  -  variable  (double  precision)  array 

Z  -  variable  (double  precision)  array 

Q  -  integer  (exponent) 

5.  Output  Arguments: 

H  -  value  of  integral  (double  precision) 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  SUBINT(?,,Z,Q,H) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  2A6-g  Bytes. 
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1.  Subroutine  Name:  ZMRD 

2.  Purpose:  Multiply  two  matrices  to  form  a  resultant  j 

matrix.  (This  is  a  modification  of  MPRD  to  include  double  i 

precision.)  | 

3-  Equations  and  Procedures:  | 

DO  -  DO  DQ  ! 


4.  Input  Arguments: 

A 
E 
N 
M 
L 

MSA 
MSB 

5.  Output  Arguments: 

R  -  resultant  matrix  (double  precision) 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  ZMRD(A,B,R,N,M,MSa,MSB,L) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  Is  BFE^  Bytes. 

12.  Subroutine  User:  PLUG8 

13.  Subroutines  Required:  LOG 

14.  Remarks: 

1.  General  subroutine. 

2.  Storage  control  of  A  and  B  matrix 

0  -  General 

1  -  Symmetric  (upper  half) 

2  -  Diagonal 

3.  A  and  R  must  be  double  precision  in  calling  program. 


first  input  matrix  (double  precision) 
second  input  matrix  (single  precision) 
number  of  rows  in  A  matrix 
number  of  rows  in  B  matrix 
number  of  columns  in  B 
control  on  storage  mode  of 


control  on  storage  mode  of  B 


}  See  remarks 
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ZTRD 


1. 

2. 


4. 


5- 

6. 

V. 

8. 

9. 

10. 
11. 
12. 

13. 

14. 


Subroutine  Name: 

Purpose:  Transpose  a  matrix  and  post  multiply  by 

another  to  form  a  resultant  matrix. 

This  routine  is  a  modification  of  TPRD  to  include 
double  precision. 

Equations  and  Procedures: 

E)  ■  K^fXi 

|A]  is  not  actually  transposed. 


Input  Arguments: 


A 

B 

N 

M 

L 

MSA 

MSB 


first  input  matrix  (single  precision) 
second  input  matrix  (double  precision) 
number  of  rows  in  A  and  B 
number  of  columns  in  A  and  rows  in  R 
number  of  columns  in  B  and  rows  in  R 
control  of  storage  mode  of  A 
control  of  storage  mode  of  B 


}  See  remarks 


Output  Arguments: 

R  -  resultant  matrix 

Error  Returns:  None 

Calling  Sequence: 

Call  ZTRDtA.B.RjNjMjMSA^MSB.L) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required:  Total  Storage  required  is  406^  Bytes. 
Subroutine  User:  PLUG8 

Subroutines  Required:  LOG 

Remarks ; 

1.  General  subroutine. 

2.  Storage  control  of  A  and  B  matrix 

0  -  General 

3  -  Symmetric  (upper  half) 

2  -  Diagonal 

3.  B  must  be  double  precision  In  calling  program. 
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Subroutine  Name: 


KMPY 


2.  Purpose:  Multiply  each  element  of  a  matrix  by  a  scalar 

to  form  a  resultant  matrix. 


3-  Equations  and  Procedures:  This  subroutine  multiplies 

each  element  in  the  input  matrix  A,  by  a  scalar  C  and 
places  the  result  in  R.  Soubroutine  LOC  calculates  the 
vector  length  IT  of  the  resultant  vector  R. 

4.  Input  Arguments: 


A 

C 

N 

M 

MS 


name  of  input  matrix 
scalar  multiplier 
number  of  rows  in  matrix  A 
number  of  columns  in  matrix  A 
storage  mode  of  matrix  A 

-  0  General 

-  1  Symmetric 

-  2  Diagonal 


Output  Arguments: 


R  -  name  of  output  matrix 

N ,M,MS  -  defined  above,  refer  to  the  R  matrix  also. 

6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  KMPY (A,C,R,N,M,MS) 

3.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11,  Storage  Required:  Total  Storage  required  is  lF81g  Bytes. 

12,  Subroutine  User:  PLUG8 

13*  Subroutine  Required:  LOC 

.  Remarks:  Good  comments  are  available  in  the  subroutine 

listing. 
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1.  Subroutine  Name:  ERIC 

2.  Purpose:  Compute  pressure  load  vector  (FP) 

3.  Equations  and  Procedures: 

FP  *=  SCAL  [HHTJ  [QP]  |HP]  [PVj 

50  Multiply  ITH  col  of  HH  *  QP  to  get  W0RK(8)  vector 
Multiply  WORK  *  HP  to  get  WORK2(8)  vector 
Multiply  WORK 2  «  PV  *  SCAL  to  get  FP(I) 

Update  I  and  go  to  5P 

i»,  Input  Arguments: 

HH  -  EQ.  2.10 

QP  -  EQ.  11.3.1.27  (less  2JI) 

HP  -  EQ.  ll. 3.1.29 

PV  -  EQ.  11.3.1.29 

SCAL  -  2JI  See  11.3*1. 27 

5.  Output  Arguments: 

FP  -  pressure  load  vector 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

(HH,  QP,  HP,  PV,  FP,  SCAL) 

8.  Input  Tapes:  None 

Q.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  36C^g  Bytes 

12.  Subroutine  User:  PLUG8 

13.  Subroutines  Required:  None 

111 .  Remarks:  Equation  are  given  in  "Formulation  and  Evaluation 

of  a  Trapezoidal  Cross  Section  Ring  Discrete  Element", 

R.  H.  Mallett,  S.  Jordan,  November,  1966. 


Subroutine  Name:  PLUG17 

Purpose:  (1)  To  generate  both  membrane  and  flexural  element 

matrices  of  a  triangular  thin  plate,  (2)  If  applicable, 
generate  incremental  matrices  for  instability. 

Equations  and  Procedures: 

A.  Formulation  of  Equation  -  The  formulation  for  any 
computations  involved  in  evaluating  the  element  matrices 
will  be  found  in  references  (1)  and  (2).  (See  Remarks 
section  of  this  report.)  Modifications  were,  however, 
necessary  to  make  the  notation  compatable  with  36^8 
procedures  and  applications.  The  formulations  and  coding 
are  not  necessarily  in  the  same  sequence  or  labeling. 

B.  Initial  Computations  - 

1.  Constants  have  to  be  set  for: 

a)  If  the  element  matrices  are  to  be  computed, 

LAMDA(I)  «  1  where 

1=1,  for  membrane  stiffness  and  stress 
1=2,  for  flexural  stiffness  and  stress 
I  *  3>  for  membrane  thermal  load  and  stress 
I  =  4,  for  flexural  thermal  load  and  stress. 

b)  The  incrementals  will  not  be  computed: 

INCREM  «  0  since  ICONT  =  0. 

2.  Material  properties  and  element  data  from  MAT  and 
EXTRA  array  noting  that  if  either  membrane  or  flexure 
thickness  is  zero,  the  appropriate  LAMDA  above  is 
reset  to  zero. 

3.  According  to  reference  (2),  transformation  matrices 
have  to  be  formulated  with  the  appropriate  direction 
cosines . 

a)  From  cylinder  coordinates  to  local  coordinates 

{h]  *  fT*c’l  {xo}  (1) 

b)  From  cylinder  coordinates  to  oblique  coordinates 

t*0>  ■  LToc'l  <V  (2> 

where  {xD }  are  the  local  x,  y,  z  coordinates 

{x~}  are  the  cylinder  x,  y,  z  coordinates 

{x°}  are  some  other  orthogonal  X'  Y*  Z'  coordinates 
o 

[Toc]  contain  the  respective  direction  cosines. 

Since  the  element  displacements  are  in  local 
coordinates,  combining  equations  (1)  and  (2)  yields 

{**>  -  [Tju-I  Ltoc'.IT<V  «  [ttobiTI  {xq}  (3) 
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3. 


Equations  and  Procedures  (Contd.): 


Transformation  of  the  above  cited  displacements, 
XpX^x^y-^etc.  into  362l8  notation  x1>y^,z1>x2,etc. 

will  result  in  the  formulation  of 

{x1,x2,x3>etc}  «  [T1718]  {x1,y1,z1,etc}  (4) 


C. 


D. 


E. 


Flexural  Computations  -  (All  equations  cited  are  in 
Reference  1). 

1.  Using  equation  IV-6,  the  [B"|  matrix  is  formulated. 
However,  it  should  be  noted’  that  the  SEL  array  is 
used  to  relabel  the  displacements  as  W,  0x  and  0y 

(instead  of  0  ,  0  ,  W). 

*  y 

2.  Using  equations  IV-15,  16,  and  17,  the  geometric 
properties  of  the  element  are  first  defined  in  local 
and  then  in  global  coordinates.  These  are  shown  as 
Figures  IV-3  and  IV-2  respectively. 

3.  If  the  incrementals  are  to  be  computed  (N  ,  N  ,  N  ) 

a  y 

the  following  sequence  of  operations  take  place: 

a)  Using  equation  IV-14,  the  respective  [Cj  matrices 
are  formulated. 

b)  The  respective  incremental  is  formulated  according 
to  equation  IV-11  and  then  transferred  to  3648 
notation  by  JT1718] . 

4.  The  remaining  element  matrices  are  then  formulated 
according  to  the  respective  equations  cited: 

a)  Stiffness  -  Equations  IV-2,  6  and  10 

b)  Stress  -  Equation  IV-24 

c)  Thermal  Load  -  Equation  IV-21 

d)  Thermal  Stress  -  Equation  IV-26 


Membrane  Computations  -  (All  equations  cited  are  in 
Reference  1).  The  following  membrane  matrices  are  then 
formulated  according  to  the  respective  equation  cited: 

a)  Element  -  Equations  II-l,  5  and  11 

b)  Stress  -  Equation  11-16 

c)  Thermal  Stress  -  Equation  11-25 

d)  Thermal  Load  -  Equation  11-22 


Remaining  Operations  -  The  element  stiffness,  stress 
and  thermal  load  matrices  are  then  transformed  first  to 
global  and  then  to  3648  notation. 


O  I11  r 
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Input  Arguments: 


NCE1 

ZELC , YELC , ZELC 

TEL, PEL 

NORD 

NCEI 

GPAXEL 

KN 

ICONT 

MAT 

EXTRA 


number  of  node  points 

-  X,  Y  and  Z  coordinates 
temperature  and  pressure  array 
order  of  element  stiffness  matrix 
node  point  numbers 

grid  point  axes  transformation  for  element 
control  for  instability  (If  set  =  1,  incrmentals 
computed) 

control  of  grid  point  axes  transformation 
material  properties  array 
element  properties  array 


5.  Output  Arguments: 


NOINK 

AKELX 

PTELX 

SEL-X 

PTEL 

NRSEL 

NSEL 


number  of  elements  in  stiffness  matrix 
elements  of  stiffness  matrix  (symmetric  - 
bottom  half) 

elements  of  thermal  load  matrix 
elements  of  stress  matrix 
elements  of  thermal  stress  matrix 
number  of  rows  in  stress  matrix  (5) 
number  of  elements  in  stress  matrix  (90) 


6.  Error  Returns: 

(a)  NERR  -  standard  plug  checks  from  ELTEST 

(b)  If  points  (1)  and  (2)  have  same  coordinates  call  EXIT 

(c;  If  B-1  is  singular  -  call  EXIT. 

7.  Calling  Sequence: 

Call  PLUG 17 ( I PL , NCEI , XELC , YELC , Z ELC , TEL , PEL , QSEL , IP , NORD , NERR , 
NOINK , AKELX , ANELX1 ,FTELX , SELX , PTEL , AMASS , DAMPV , 
DAMPS , NRSEL , NNO , NCEI , NMASS , NDMPV , NDMPS , NSEL , KK , 

KP , KS , KM , KDS , KDV , KN , IUSEL , EPSIO , SO , MAT , EXTRA , 

GPAXEL , NDIR , NDEG , ICONT ) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 
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11.  Storage  Required: 
a)  Variables 


b)  Definition 


T1718  (24, 24) 
TTOBL  (3,12) 

SEL  (17,24) 
ANELX  (300) 
ANELY  (300) 
ANELXY  (300) 
ANELEX  (300,3) 


12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required: 

DIRCOS  BOB 

BCB12  MATB 

FTELQ  MAB 

SELQ  KOBLIQ 

14.  Remarks: 

a)  Controls  are  reset  in  programs  to  compute  everything  but 
the  incrementals .  Initial  test  phase  had  KN  =  1  to  check 
these  computations. 

o)  Plug  not  tested  out  if  either  the  flexural  or  membrane 

thickness  is  zero  (certain  portions  of  plug  will  be  bypassed 
as  LAMDA  is  set  *  0). 

c)  Thermal  load  will  probably  have  to  be  rederived  as  2nd 
input  TEMP  is  thermal  moments  Mx  and  not  the  thermal 
gradient  as  prescribed  for  flexural  elements  (PLUGS  1 
and  2 ) . 

d)  References: 

(1)  Bell  Report  No.  D2114-95C05,  "Derivation  of  the 
Force  -  Displacement  Properties  of  Triangular  and 
Quadrilateral  Orthotropic  Plates  in  Plane  Stress 
and  Bending"  -  Gallagher,  Huff  *•  dated  Jan.  1964. 

(2)  Bell  Report  No.  D2114-95008,  "Detailed  Description 
Computer  Program  for  Stiffened  Cylinder  Analysis" 
Gallagher,  Huff,  Dale  -  dated  Jan.  1964. 


Transformation  matrix  to  3648  notation 
Transformation  matrix  from  local  to 
global  or  oblique  coordinates 
Working  <area  and  stress  matrix 

Incremental  matrices  in  Cylinder 
Notation 

Incremental  matrices  for  Instability 
in  3648  notation 


Subroutine  Name:  DIRCOS 

Purpose:  To  evaluate  the  direction  cosines  given  any  3 

points  that  define  a  plane. 

Equations  and  Procedures:  Subscripts  1,  2  and  3  refer  to 

the  3  points  of  the  plane.  Dropping  a  perpendicular  from 
point  3  to  the  line  connecting  1  and  2  results  in  point  a. 
The  following  computations  are  done  in  order  to  determine 
the  direction  cosines. 

112  “  (x2  "  xl)2  +  ^y2  “  yl)2  +  (z2  ~  zl)2 


lj3  =  (x3  -  xx)2  +  (y3  -  yx)2  +  U3  -  z±)2 


123  =  ( x 3  -  x2)2  +  (y3  -  y2)2  +  (z3  -  z2)2 


1la  *  {112  +  X13  '  123)/2112 


X2~X1 

y?-yi 

Z2-Zl 

AX  =  n  j 

“12 

^y  c  ~  -i  » 

X12 

A  £  -i 

i12 

xa  =  X1  +  Xx  Ha 


ya  =  yl  +  Ay  Ha 


za  “  Z1  +  H  1la 


xa3  =  (x3  '  “a)2  *  (y3  '  ya)2  *  (z3  '  za>2 


8.1118 


i 


3.  Equations  and  Procedures, (Contd. ) : 


Input  Arguments: 

XEL1,YEL1,ZEL1  -  X,  Y,  Z  coordinates  of  plane 

5.  Output  Arguments: 


XLAMD1 

YLAMD1 

ZLAMD1 

XPSI1 

ZPSI1 

XNU1 

YNU1 

ZNU1 

ALI21 


direction  cosines. 


distance  between  point  1  and  2  of  the  plane. 


6.  Error  Returns:  None 


7.  Calling  Sequence: 

Call  DIRC0S(XEL1 , YEL1 ,ZEL1 ,XLAMDL , YLAMD1 ,ZLAMD1 ,XPSI1 , YPSI1 , 
:  XNV1,YNU1,ZNU1 ,ALI21) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes: 


None 


11.  Storage  Required:  Total  Storage  required  is  576.^  Bytes. 

12.  Subroutine  User:  PLUQ17,  PLUG18 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  3CB12 

2.  Purpose:  To  evaluate  a  triple  product  matrix  where  all 

matrices  are  square. 

3.  Equations  and  Procedures:  Dependent  upon  an  input 

variable  (ISIN2)  when  ISIN2  *  5- 

AKEL  =  Ck _1_7  T  TO  J  rk1  J 

when  ISIN2  *  11 

AKEL  «  CkJ  T  Z"C  J  CkJ 

where  A  now  contains  elements  of  A-1. 

Input  Arguments: 

A  -  matrix  to  be  inverted  or  the  inverted  matrix 

C  -  symmetric  matrix  bottom  half 

NOR 2  -  order  of  matrices 

JNL1  -  dummy  -  set  equal  to  1 

IKELW  -  print  option 

JEL1  -  dummy  -  set  equal  to  1 

ISIN2  -  input  code  for  above 

NEC1  -  node  points 

SUBTI1  -  title  of  matrix 

SUBTI2  -  type  of  element 

NCE2  -  number  of  grid  points 

5.  Output  Arguments: 

AKEL  -  results  of  the  above  triple  product. 

6.  Error  Returns:  If  A  Is  singular  -  print  out  error  and  EXIT. 

7.  Calling  Sequence: 

Call  BCB12 ( A . C ,N0R2 ,  JNLi , IKELW, JEL1 , ISIN2 , AKEL, NCE2 ,NCE1 , 

SUBTI1 ,SUBTI2 ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  1208-^g  Bytes. 

12.  Subroutine  User:  PLUG 17,  PLUG18 

13.  Subroutines  Required:  None  -  has  a  built  in  inverse  routine. 

14.  Remarks:  Note  that  maximum  size  of  matrix  is  only  12. 
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Subroutine  Name: 


KOBLIQ 


2.  Purpose:  To  evaluate  J 

(TT0BL)T  (AKEL)  (TTOBL)  | 

! 

3.  Equations  and  Procedures:  TTOBL  is  a  compressed  trans-  I 

formation  matrix  (3»12)  that  is  labeled  u,  v,  w  for  each  { 

node  point.  Since  AKEL  is  labeled  u1>  Ug,  u^>  etc.,  the 

appropriate  manipulation  is  done  in  this  routine  to  do  the 
above  product. 

t 

4.  Input  Arguments:  \ 

\ 

NI  -  order  of  matrices  ! 

TTOBL  -  transformation  matrix  of  element 

AKEL  -  element  stiffness  matrix 

SUBTI1,  SUBTI2  -  labeling  of  printout 

IKELW  -  print  option 

C  -  working  storage 

NA1  -  number  of  nodes  defining  element 

NAI  -  node  points 

ROW  -  working  storage 

5.  Output  Arguments: 

AKEL  -  element  stiffness  matrix 

6.  Error  Return:  None 

7.  Calling  Sequence: 

Call  KOBLIQ(NI, TTOBL, AKEL, SUBTI1,SUBTI2,IKELW,C, NAI, NAI ,ROW) 

8.  Input  Tapes:  None 

1 

9.  Output  Tapes:  None 

! 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  AFO-^g  Bytes. 

12.  Subroutine  User:  PLUG 17 ,  PLUG18 

13.  Subroutine  Required:  None 

14.  Remarks:  Note  that  dimension  for  ROW  dictates  size  of 

multiplication. 
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1. 


Subroutine  Name: 


P1718M 


2.  Purpose:  Initialize  element  properties  from  the  material 

table  for  membrane  properties  with  flexural  data  only  from 
PLUG  17  and  PLUG  18. 

3.  Equations  and  Procedures: 

EXEL  «  NAT  (1*1) 

EYEL  »  MATU5) 

BETA  =  EXEL/EYEL 

XYMU  «  MAT (16) 

ALPAEL  -  MAT (17) 

GXY£L  -  MAT (18) 

Input  Arguments:  MAT 

5*  Output  Arguments: 

EXEL 

BETA 

XYMU 

OXYEL 

ALPAEL 

6.  Error  P.etum:  None 

7.  Galling  Sequence: 

PI? 18M ( MAT , EXEL , BETA , XYMU , GXYEL , ALPAEL ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  1C016  Bytes. 

12.  Subroutine  User:  PLUG  17  ;  PLUG  18 

13.  Subroutine  Required:  None 

1*4 .  Remarks:  None 


1.  Subroutine  Name:  SELQ 

2.  Purpose:  To  transform  the  stress  matrix  (generated  by 

PLUG 17  and  PLUG18)  to  the  stress  system  required  - 
generally  local). 

3.  Equations  and  Procedures: 

PQ  TRANS  '  DO  [™BL1 

where  [SQ  is  the  stress  matrix  generated  by  17  and/or  18. 
[TTGBI7]  is  the  transformation  matrix  from  global  to  local 
or  global  to  oblique. 

4.  Input  Arguments: 

NORD6  -  number  of 'columns  in  stress  matrix 
TTOBL  -  transformation  matrix 

IKELW  -  print  option 

A  -  element  stress  matrix 

NRSEL  -  number  of  rows  in  stress  matrix 
ROW  -  working  storage 

5.  Outpuc  Argument-,: 

A  -  stress  matrix  transformed  to  local  system 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  SELQ ( N0RD6 , TTOBL , IKELW , A , NRSEL , RO W ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  664.^  Bytes. 

12.  Subroutine  User:  PLUG17,  PLU018 

13.  Subroutines  Required:  None 

14 .  Remarks : 

1.  12  elements  at  one  time  (membrane  or  flexure)  are  put 
into  the  working  area  (ROW). 

2.  Note  again  the  labeling  of: 

(a)  TTOBL  «  u^,  Vp  w,,  etc. 

(b)  SEL  *  Up  a,,  u,,  Ujj ,  etc. 
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1.  Subroutine  Name:  FTELQ 

2.  Purpose:  To  transform  the  element  thermal  (local)  load 

into  global  or  oblique  system. 

3.  Equations  and  Procedures: 

(P}J  -  [TTOBl[jT{P^le} 
where  TTOBL  is  the  transformation  matrix. 

{F^le>  is  the  element  local  thermal  load 

{F}“  is  the  transformed  load 

A 

4.  Input  Arguments: 

N0RD6  -  size  of  the  load  vector 
TTOBL  -  transformation  matrix 

IKELW  -  print  option 

THMOEL  ~  local  thermal  load 

ROW  -  working  storage 

5.  Output  Arguments: 

THMOEL  -  transformed  thermal  load 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  FTELQ ( N0HD6 , TTOBL , IKELW , THMOEL , ROW ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  560.^  Bytes. 

12.  Subroutine  User;  PLUG17*  PLUG18 
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13.  Subroutines  Required:  None 

lb.  Remarks: 

1.  Note  that  dimension  of  R0W(12)  indicates  .12  elements 
at  a  time  transformed  (membrane  or  flexure). 

2.  Note  labeling  of: 

(a)  [TTOBL]  -  Fv  ,  F  ,  F  ,  etc. 


Subroutine  Name: 


PLUG18 


Purpose:  (1)  To  generate  both  membrane  snd  flexural  element 
matrices  of  a  quadrilateral  thin  plate,  (2)  If  applicable, 
generate  incremental  matrices  for  instability. 

Equations  and  Procedures: 

A.  Formulation  of  Equation  -  The  formulation  for  any 

computations  involved  in  evaluating  the  element  matrices 
will  be  found  in  references  (1)  and  (2).  (See  Remarks 
Section  of  this  report.)  Modifications  were,  however, 
necessary  to  make  the  notation  compatable  with  3648 
procedures  and  applications.  The  formulations  and  coding 
are  not  necessarily  in  the  same  sequence  or  labeling. 

8.  Initial  Computations  - 

1.  Constants  have  to  be  set  for: 

a)  If  the  element  matrices  are  to  be  computed, 

LAMBA(I)  -  1  where 

1*1,  for  membrane  stiffness  and  stress 
1*2,  for  flexural  stiffness  and  stress 
I  *  3»  for  membrane  thermal  load  and  stress 
1*4,  for  flexural  thermal  load  and  stress. 

b)  The  incrementals  will  not  be  computed 
INCREM  *  0  since  ICONT  *  0. 

2.  Material  properties  and  element  data  from  MAT  and 
EXTRA  array  noting  that  if  either  membrane  or  flexure 
thickness  is  zero,  the  appropriate  LAMDA  above  is 
reset  to  zero. 

3.  According  to  reference  (2),  transformation  matrices 
have  to  be  formulated  with  the  appropriate  direction 
cosines. 

a)  From  cylinder  coordinates  to  local  coordinates 

{h}  "  <*0>  (1) 

b)  From  cylinder  coordinates  to  oblique  coordinates 

<*o>  ■  <\>>  (2) 

where  {x.}  are  the  local  x,  y,  z  coordinates 

{x*}  are  the  cylinder  x,  y,  z  coordinates 

{x^}  are  some  other  orthogonal  X'  Y*  Z*  coordinates 

CTic]  Poe"]  contain  the  respective  direction  cosines. 

Since  the  element  displacements  are  in  local 
coordinates,  combining  equations  (1)  and  (2)  yields 

-  P* C'J  &00]TU0>  *  [WOBL]  (*0)  (3) 
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Equations  and  Procedures  (Contd): 


4.  Transformation  of  the  above  cited  displacements 

x1>x2>X2»y1,etc.  into  3648  notation  x1,y1,z1>x2,etc . 

will  result  in  the  formulation  of 

{x1,x2,x3,etc}  «  [T17lC!  tx1»y1»zi»x2*etc}  (4) 

C.  Flexural  Computations  -  (All  equations  cited  are  in 
Reference  1): 

1.  Using  equation  V«5,  the  (B)  matrix  is  formulated. 
However,  it  should  be  noted  that  the  SEL  array  is 
used  to  relabel  the  displacements  as  W,  0X  and  0y 

(instead  of  0  ,  0  ,  W). 

x  y 

2.  Using  equations  V-19,  and  21,  the  geometric  properties 
of  the  element  are  first  defined  in  local  and  then  in 
global  coordinates.  These  are  shown  as  Figures  V-8 
and  V-7  respectively. 

3.  If  the  incrementals  are  to  be  computed  (N  ,  N  ,  N  ) 

a  y  a  y 

the  follow"ng  sequence  of  operations  take  place: 

a)  Using  equation  V-ll,  tne  respective  (C)  matrices 
are  formulated. 

b)  The  respective  incremental  is  formulated  according 
to  equation  V-12  and  then  transferred  to  3648 
notation  by  (T1718). 

4.  The  remaining  element  matrices  are  then  formulated 
according  to  the  respective  equations  cited: 

a)  Stiffness  -  Equations  V-2,  3rd  and  5 

b)  Stress  -  Equations  V-9  and  30 

c)  Thermal  Load  -  Equations  V-26 

d)  Thermal  Stress  -  Equation  V-32 

D.  Membrane  Computations  -  (All  equations  cited  are  in 
Reference  l).  The  following  membrane  matrices  are  then 
formulated  according  to  the  respective  equation  cited: 

a)  Element  -  Equations  III-2,  8  and  12 

b)  Stress  -  Equation  III-26 

e)  Thermal  Stress  -  Equation  III-25 

d)  Thermal  Load  -  Equation  III-22 

E.  Remaining  Operations  -  (1)  The  element  stiffness,  stress 

and  thermal  load  matrices  are  then  transformed  first  to 
global  and  then  to  3648  notation,  (2)  The  stress  matrix 

is  now  expanded  to  be  consistent  with  3648  applications  by 
(T18ST) . 
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Input  Arguments: 

NCE1  -  number  of  node  points 

XELC, YELC,ZELC  -  X,  Y  and  Z  coordinates 
TEL, PEL  -  temperature  and  pressure  array 

NORD  -  order  of  element  stiffness  matrix 

NCEI  -  node  point  numbers 

GPAXEL  -  grid  point  axes  transformation  for  element 

KN  -  control  for  Instability  (If  set  *  1,  Incremental 

Computed) 

ICONT  -  control  of  grid  point  axes  transformations 
MAT  -  material  properties  array 

EXTRA  -  element  properties  array 

5.  Output  Arguments: 

NOINK  -  number  of  elements  in  stiffness  matrix 

AKELK  -  elements  of  stiffness  matrix  (symmetric  - 

bottom  half) 

FTELK  -  elements  of  thermal  load  matrix 

SELKP  -  elements  of  stress  matrix 

PTELK  -  elements  of  thermal  stress  matrix 

NRSEL  -  number  of  rows  in  stress  matrix  (^0) 

NSEL  -  number  of  elements  in  stress  matrix  (900) 

6.  Error  Returns: 

(a)  NERR  -  standard  plug  checks  from  ELTEST 

(b)  If  points  (1)  and  (2)  have  same  coordinates  call  EXIT 

(c)  If  B-1  is  singular  -  call  EXIT 

7.  Calling  Sequence: 

Call  PLUG 1 8 ( I PL • NCE 1 , XELC , YELC , Z ELC ,TEL , PEL , QSEL , I P , NORD , 

NERR i NOINK  t  AKELX , ANELX1 , FTELX , SELKP , PTELK , AM ASS , 
DAMPV , DAMPS , IRSEL , NNO , NCE I , NMASS , NDMPV . NDMPS , NSEL , 

KK , KF , KS , KM , KDS , KDV , KN , IUSEL , EPSIO , SO , MAT , EXTRA , 
GPAXEL , NDIR , NDEG , ICONT ) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 
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Storage  Required: 


a)  Variables 


b)  Definitions 


T1718  (2*1 ,2*1) 

TTOBL  (3,12) 

SEL(17  >2*0 
ANELX  (300) 
ANELY  (300) 
ANELXY  (300) 
ANELEX  (300,3) 


Transformation  matrix  to  36*18 
notation 

Transformation  matrix  from  local 
to  global  or  oblique  coordinates 
Working  area  and  stress  matrix 

Incremental  matrices  in  cylinder 
notation 

Incremental  matrices  for  Instability 
in  36*48  notation 


Subroutine 

User:  ELPLUG 

Subroutines 

Required: 

DIREC 

BCB 

BCB12 

MATB 

FTELQ 

SELQ 

KOBLIQ 

MAB 

Remarks : 

a)  Controls  are  reset  in  programs  to  compute  everything 
but  the  incrementals.  Initial  test  phase  had  KN  »  1  to 
check  these  computatior j . 

b)  Plug  not  tested  out  if  either  the  flexural  or  membrane 
thickness  is  zero  (certain  portions  of  plug  will  be 
bypassed  as  LAMDA  is  set  »  0). 

c)  Thermal  load  will  probably  have  to  be  rederived  as  2nd 
input  TEMP  is  thermal  moments  Mx  and  not  the  thermal 
gradient  as  prescribed  for  flexural  elements  (PLUGS  1 
and  2). 

d)  References: 

(1)  Bell  Report  No.  D211*I-95Q05 ,  "Derivation  of  the 
Force  -  Displacement  Properties  of  Triangular 
and  Quadrilateral  Ort-hotropic  Plates  in  Plane 
Stress  and  Bending"  -  Gallagher,  Huff  -  dated 
Jan.  196*4. 

(2)  Bell  Report  No.  D211*4— 95008 ,  "Detailed  Description 
Computer  Program  for  Stiffened  Cylinder  Analysis" 
Gallagher,  Huff,  Dale  -  dated  Jan.  196*4. 
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1.  Subroutine  Name:  TR18ST 

2.  Purpose:  To  form  transformation  for  stress  and  thermal 

stress  matrices  to  u,  v»  w  notation 

3‘  Rations  and  Procedures:  See  element  write-up  for 

defined  transformations. 

4*  Input  Arguments: 


NODE 


element  nodes 


5*  Output  Arguments: 


T1718 

T18ST 

6.  Error  Returns: 


transformation  matrices 


None 


7.  Calling  Sequence: 

Call  TR18ST(N0DE,T1718,T18ST) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  352l6  Bytes, 

12.  Subroutine  User:  PLUG 1 8 

13.  Subroutine  Required:  None 

14 .  Remarks :  None 
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1.  Subroutine  Name:  FBMP18 

2.  Purpose:  To  evaluate  B  matrix  for  quadrilateral  plate 

elements;  out  of  plane. 

3.  Equations  and  Procedures:  See  element  write-up  for 

definition  of  B  matrix  generation. 

4.  Input  Arguments: 

XEL  -  X  coordinates 

YEL  -  Y  coordinates 

5.  Output  Arguments: 

B  -  output  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  FBMP18 ( XEL , YEL , B ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  39Al6  Bytes. 

12.  Subroutine  User:  PLUG18 

13.  Subroutine  Required:  None 

15.  Remarks:  NOne 
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Subroutine  Name:  PLU 022 

Purpose:  Element  matrix  generation  for  the  incremental 

frame  element. 


Equations  and  Procedures:  None 


Input  Arguments: 


I  PL 

NNO 

XC 

YC 

ZC 

TEL 

PEL 

QS 

IP 

NORD 

NRSEL 

NN 

ML 

KK 

KP 

K8 

KM 

KTS 

ET 

XVM 

KN 

I'JSEL 

EPS 

SO 

MAT 

EXTRA 

NDIR 

NDEG 

ICONT 


plug  number 

number  of  node  points 

X-coordinates  of  nodes  points 

Y-coordinates  of  node  points 

Z-coordinates  of  node  points 

temperatures  at  the  node  points 

pressures  at  the  node  points 

input  displacements  of  the  node  points 

number  of  extra  cards 

order  of  element  stiffness  matrix 

number  of  rows  in  the  stress  matrix 

number  of  nodes 

node  point  numbers 

code  for  computation  of  element  stiffness  matrix 

code  for  computation  of  element  thermal  load 

code  for  computation  of  element  stress  matrix 

code  for  computation  of  element  mass  matrix 

code  for  computation  of  element  thermal  stress  matrix 

code  for  computation  of  structural  damping  matrix 

code  for  computation  of  viscous  damping  matrix 

code  for  computation  of  incremental  damping  matrix 

dummy 

pre-strain  lead  vector 

pre-stress  load  vector 

material  properties  matrix 

extra  Information  ( angles >  etc.) 

number  of  directions  of  movement  per  grid  point 

number  of  types  cf  movement  allowed  per  grid  point 

code  for  use  of  gx’id  point  axes 


Output  Arguments: 

NERR  -  error  return 

NOINK  -  number  of  elements  in  lower  half  matrices 

KSEL  -  stiffness  matrix 

CNX  -  incremental  stiffness  matrix 

FTEL  -  thermal  load  +  pressure  load  matrix 

SEL  -  stress  matrix 
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Output  Arguments  (Contcl): 


SZALEL 

AMASS 

DAMPV 

DAMPS 

NSEL 

NMASS 

NDMPV 

NDMPS 

QPAXEL 


therma-  stress  matrix 

mass  matrix 

viscous  damping  matrix 

structural  damping  matrix 

number  of  elements  in  stress  matrix 

number  of  elements  in  mass  matrix 

number  of  elements  in  viscous  damping  matrix 

number  of  elements  in  structural  damping  matrix 

grid  point  axes  transformation 


6 .  Error  Returns : 


NERR 


0  no  error 

1  plug  number  incorrect 

2  number  of  nodes  incorrect 

3  number  of  input  points  incorrect 

4  order  of  matrix  (NORD)  incorrect 


7.  Calling  Sequence: 

Call  PLUG 2 2 ( XPL , NNO ,XC , YC , ZC ,TEL , PEL , QS , IP , NORD , NERR , NOINK , 
KSEL ,  CNX , FTEL , SEL , SZ  ALEL , AMASS , DAMPV , DAMPS , NRSEL , 
NN ,NL , NMASS , NDMPV , NDMPS , NSEL , KK , KF , K8 , KM , KTS , ET , 
KVM , KN , IUSEL , EPSIO , SO , MAT , EXTRA , GPAXEL , NDIR , NDEG , 
ICONT) 

3.  Input  Tapes:  None 

9*  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  3FCCl6  Bytes. 


12.  Subroutine  User:  ELPLUG 


13.  Subroutines  Required: 

ELTEST,  CTS,  CTCQ,  CECC,  MAB,  AXTRA2 ,SYMPRT,  BCB,  MATB,  MSB, 
FINP22,SQRT 

l1!.  Remarks:  None 
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Subroutine  Name: 


FINP22 
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11.  Storage  Required: 


Total  Storage  required  is  3EC,,  Dytes. 

•*  / 

12.  Subroutine  User:  PLUQ22 

13.  Subroutine  Required:  None 

li».  Remarks:  None 


1 .  Subroutine  Name :  AXTRA1 


2.  Purpose:  Apply  grid  point  axes  transformation  by  pre-multi¬ 
plication  using  either  the  actual  transformation  matrix  or 
its  transpose . 

3  .  Equations  and  Procedures : 

Pout]  =  Qgpa]  [min]  or  [mout]  =  Ogpa]  T  [min] 

v/here  jMj^J  the  input  elerca.  -  matrix, 

is  the  element  grid  point  axes  transformation 
matrix, 

[Mou^  is  the  output  transformed  element  matrix . 

Pout]  is  stored  "he  same  location  as  M^l  ,  therefore 

the  input  element  matrix  is  lost  once  the  multiplication  has 
been  effected.  Advantage  is  taken,  during  multiplication, 
of  the  fact  that|£p^]  is  structured  as  a  set  of  (3  x  3)  or 

(2x2)  matrices  with  main  diagonal  positions  lying  on  the 
main  diagonal  of|f£pAJ  . 

4  .  Input  Arguments : 

GPAXEL  :  Element  grid  point  axes  transformation  matrix  Tr*-] 

QSEL  :  Input  element  matrix,  u^rA] 

NCOL  :  Number  of  columns  in  QSEL 

NNO  :  Number  of  element  node  points 

NDEG  :  Number  of  degrees  of  freedom 

NDIR  :  Number  of  directions 

ITRAN  :  Control  code,  if  ITRAN  -  Q  then [MqUT]  =  [[gp^j  [M^ 

if  ITRAN  =  3,  then  [MquJ  =  (jopyO  EMIh] 

5 .  Output  Arguments : 

QSEIi  ;  Output  transformed  element  matrix , 

6 .  Error  Returns :  None 

7.  Calling  Sequence: 

CALL  AXTRA1  (GPAXEL,  QSEL,  NCOL,  NNO,  NDEG,  NDIR,  ITRAN) 

8  .  Input  Tapes :  None 

9  .  Output  Tapes :  None 
10  .  Scratch  Tapes :  None 


11.  Storage  Required:  Total  Storage  required  is  ^JlE^g  Bytes. 

COL  (3) 

I SAVE  (3) 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  The  output  matrix  is  3tored  in  the  input  matrix 
storage . 

i 


1.  Subroutine  Name:  AXTRA3 

2.  Purpose:  Apply  grid  point  axes  transformation  by  triple 
product  multiplication. 

3.  Equations  and  Procedures: 

[an]  =  [Igpa]t*  [sym]  *  [Igpa] 


where 

Ogpa] 

[sym] 

[an] 


is  the  element  grid  point  axes  transformation 
matrix 

is  symmetric  input  element  matrix 
is  symmetric  output  transformed  element  matrix 


The  triple  product  is  obtained  by  computing  a  row  of  the 
intermediate  product  of  [Rjpa]  '£  *§5YM]  and  then 
multiplying  this  intermediate  row  with  [RjPAJ  to  obtain 
a  row  in  [AN]  .  Advantage  is  taken,  during  multiplic¬ 
ation^  of  the  facte  that  [SYM]  and  [AN]  are  symmetric 
and  also  that  [Rj?Aj  is  structured  as  a  set  of  (3x3)  or 
(2x2)  matrices  with  main  diagonal  elements  lying  on  the 
main  diagonal  of  [  f&PA]  . 


4 .  Input  Arguments : 


^,-PAXEL  :  Element  grid  point  axes  transformation  matrix, 

[Rjpa] 

SYM  :  Input  element  matrix,  symmetric,  singly  sub- 

crlpted,  stored  lower  half  by  rows,  [SYM] 
NCOL  :  Number  of  columns  in  SYM  (also  number  of  rows 
in  SYM) 

NNO  :  Number  of  element  node  points 

NDEG  :  Number  of  degrees  of  freedom 

NDIR  :  Number  of  directions 


5.  Output  Arguments: 

AN  :  Output  transformed  element  matrix,  symmetric, 

singly  subscripted,  stored  lower  half  by  rows, 
[AN] 

6.  Error  Returns :  None 
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7.  Calling  Sequence:  Call  AXTRA3 
(GPAXEL,  SYM,  AN,  NCOL,  NNO,  NDEG,  NDIR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Storage : 

ROW (48) 

Total  Storage  =  517g  =  33510* 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  LOC 

14.  Remarks: 

SYM  must  be  stored  lower  half  by  rows, 

AN  will  be  stored  lower  half  by  rows. 

Internal  intermediate  storage  in  variable  ROW  is 
dimensioned  48.  If  the  order  of  [SYMj  is  greater 
than  48,  an  appropriate  increase  must  be  made  in 
this  intermediate  storage. 


Subroutine  Name: 


ELPRT 


Purpose:  Print  generated  element  matrices. 

Equations  and  Procedures:  Non-suppressed  matrices  are 

printed,  complete  with  titles. 


Input  Arguments: 


NOINK 

AKEL 

NORD 

FTEL 

NNO 

NODES 

NSEL 

NRSEL 

SEL 

SZALEL 

ANEL 

INEL 

NMAS3 

AMASS 

NDMPV 

DAMPV 

NDMPS 

DAMPS 

ILP 

NUMOT 

NAMOUT 


Number  of  storages  in  element  stiffness, 
incremental  stiffness  and  mass  matrices 
Array  containing  element  stiffness  matrix 
Number  of  element  degrees  of  freedom 
Vector  containing  element  load  matrix 
Number  of  element  defining  points 
Array  containing  element  defining  grid  point 
numbers 

Number  of  storages  in  element  stress  matrix 
Element  stress  order 

Array  containing  element  stress  matrix 
Vector  containing  element  thermal  stress  matrix 
Array  containing  element  incremental  stiffness 
matrix 

Element  number 

Number  of  storages  in  element  mass  matrix 

Array  containing  element  mass  matrix 

Not  used 

Not  used 

Not  used 

Not  used 

Element  type  code  number 

Number  of  output  matrices 

Array  containing  output  matrix  names 


Output  Arguments :  None 

Error  Returns :  None 


Calling  Sequence: 

CALL  ELPRT  (NOINK, AKEL, NORD, FTEL, NNO, NODES, NSEL, NRSEL, SEL, 
SZALEL , ANEL , INEL , NMASS , AMASS , NDMPV , DAMPV , NDMPS , 
DAMPS , ILP , NUMOT , NAMOUT ) 

Input  Tapes:  None 

Output  Tapes:  None 
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10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  ASC-^g  Bytes. 

12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required:  None 

14.  Remarks:  None 
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1.  Subroutine  Name:  OUTMAT 


2.  Purpose:  Sort  element  matrices  on  scratch  tape  and 
output  to  Format  Execution  Monitor  in  an  optimal  manner 

3.  Equations  and  Procedures:  First  the  array  controlling 
the  selection  and  order  of  output  of  the  matrices  (IX'TOW) 
is  formed.  The  IKNOW  array  will  contain  the  pass  number 
on  which  each  computed  output  matrix  will  be  written  on 
an  output  tape.  Correspondence  between  the  IKNOW  array 
and  the  output  matrices  is  as  follows: 

IKN0W(6]  :  Transformation  assembly  matrix  (TA) 

IKN0Wf7)  :  Master  element  stiffness  matrix  (KEL) 

IKN0W(8)  :  Master  element  applied  load  matrix  (FTEL) 

IKN0W(9)  :  Master  element  stress  matrix  (SEL) 

IKNOW(IO)  :  Master  element  thermal  stress  matrix 

(SZALEL) 

IKNOW (11}  :  Master  element  incremental  matrix  (N) 

IKN0W(12)  :  Master  element  mass  matrix  (M) 

For  each  output  matrix  except  the  element  applied  load  and 
thermal  stress  matrices  the  following  procedure  takes  place 

a.  If  the  matrix  has  not  been  calculated,  as  determined 
by  a  slash  in  its  position  in  the  NAMOUT  array,  its 
position  in  the  IKNOW  array  is  set  equal  to  zero. 

b.  If  the  matrix  has  been  calculated,  then  its  correspond¬ 
ing  output  tape  number  is  obtained  from  the  IOSPEC 
array  and  a  search  is  done  from  the  beginning  of  the 
IOSPEC  array  to  this  matrice's  position,  counting  the 
number  of  times  this  tape  number  has  been  encountered. 
This  final  count  is  the  pass  number  on  which  this 
matrix  will  be  written  and  is  placed  into  the  matrix's 
corresponding  position  in  the  IKNOW  array. 

After  the  IKNOW  array  has  been  formed  it  is  searched  for 
the  greatest  number.  This  number  will  be  the  number  of 
passes  required  to  output  all  of  the  computed  matrices. 

On  each  pass  the  following  procedure  is  used.  Thr  scratch 
tape  containing  the  element  matrices  is  rewound.  This 
tape  consists  of  two  records  per  element.  The  first  record 
contains  element  definition  data,  the  second  contains  the 
matrices  for  that  element.  The  second  record  is  read  into 
a  dynamic  storage  area  and  interpreted  by  locating  key 
numbers  that  appeared  in  the  record.  A  loop  is  entered 
from  one  to  NELEM.  The  contents  of  the  IKNOW  array  are 
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compared  to  the  pass  number.  Vihen  a  match  is  found  the 
corresponding  matrix  is  written  on  its  output  tape.  Before 
writing  the  first  element's  contribution  on  its  output 
tape,  the  appropriate  matrix  header  is  written.  In  most 
cases  the  matrices  will  be  output  in  compressed  format. 
However,  in  small  applications  when  the  maximum  element 
order  (NORDM)  or  the  maximum  element  stress  order 
(NRSELM)  is  greater  than  one-half  the  sum  of  the  element 
orders  (NORSUM)  or  the  element  stress  orders  (NRSSUM), 
respectively,  then  the  matrices  will  be  output  in 
uncompressed  format.  A  count  is  maintained  in  IR  and  IC 
for  each  output  matrix  in  order  to  place  each  element's 
contribution  in  the  correct  position  in  the  output  matrix. 
At  the  end  of  the  pass  the  appropriate  matrix  trailer  and 
data  set  trailer  labels  are  written.  The  TA  matrix  is  a 
special  case  in  that  it  is  generated  from  the  element 
definition  data  and  then  placed  on  its  output  tape.  For 
output  of  the  element  applied  load  and  element  thermal 
stress  matrices  the  following  procedure  is  invoked. 

During  the  first  pass  of  the  tape,  if  they  were  not 
suppressed,  the  element  applied  load  and  thermal  stress 
matrices  were  stored  in  the  blank  common  work  area. 
Following  the  first  pass  these  two  matrices  are  output 
in  either  compressed  or  uncompressed  format,  dependent 
upon  the  same  criteria  as  all  other  matrices. 

4.  Input  Arguments: 

NUMOT  :  Number  of  output  matrices 
NAMOUT  :  Names  of  output  matrices 

IOSPEC  :  Unit  information  regarding  output  matrices 
NTAP3  :  Scratch  tape  containing  system  information 
NTAP4  :  Scratch  -cape  containing  element  matrices 

NSYS  :  System  order 

NTD  :  Number  of  degrees  of  freedom  per  grid  point 

NORSUM  :  Summation  of  element  orders 

NRSSUM  :  Summation  of  element  stress  rows 

NELEM  :  Number  of  elements 

NWORKR  :  Number  of  working  storages  available 

WORK  :  Common  work  area 

NOPDM  :  Maximum  element  order 

NRSELM  :  Maximum  element  stress  order 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

CALL  US450( NUMOT,  NAMOUT,  IOSPEC,  NTAP3,  NTAP4,  NSYS, 

NTD,  NORSUM,  NRSSUM,  NELEM,  NWORKR,  WORK,  N0RDM,  NR0ELM) 
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8.  Input  Tapes: 

NTAP3  :  Contains  system  information 

NTAPa  :  Contains  element  matrices  in  compact  form 

9.  Output  Tapes:  Output  tape  units  are  supplied  by  the 
Format  Execution  Monitor j  matrices  are  output  by  columns 
in  compressed  format.  Appropriate  matrix  header  and 
trailer  labels  are  written.  An  output  matrix  consists  of 
all  the  element  matrices  of  that  type  placed  such  that 
their  main  diagonal  positions  lie  on  the  main  diagonal 

of  the  output  metrix  in  succeeding  positions. 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

Total  Storage  required  is  136E^g  Bytes. 

12.  Subroutine  User:  US04B 

13.  subroutines  Required: 

uS46l 

US462 

US463 

14.  Remarks:  None 
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Subroutine  Name: 


US46l 


Purpose:  Write  a  column  of  an  output  matrix  in  uncom¬ 

pressed  or  compressed  format. 

Equations  and  Procedures :  If  KODE  is  zero,  the  IWORK 

array  has  NSUM  zeros  placed  into  it.  Then,  starting  at 
ISTART,  NROW's  of  ISTORE  are  placed  into  the  correspond¬ 
ing  positions  in  IWORK.  The  variable  NUM  =  NSUM  is  the 
number  of  words  from  IWORK  that  will  be  written  on  tope. 

If  KODE  is  one,  each  element  of  ISTORE  is  compared  to 
zero.  If  it  is  zero,  it  is  ignored.  If  the  element  is 
not  zero,  then  it  is  placed  in  the  IWORK  array  in  the 
first  unused  position  and  the  next  position  in  IWORK  is 
filled  by  the  row  number  in  the  output  matrix  of  the 
non-zero  element.  The  row  number  is  corrected  by  ISTART 
in  order  to  place  the  contribution  in  the  correct  row  of 
the  output  matrix.  NUM  is  a  counter  used  to  record  the 
number  of  non-zero  numbers  found  and  the  number  of  words 
that  will  be  ’written  from  IWORK  (NUM  =  ?*  number  of  non¬ 
zero  elements  in  ISTORE) .  , 

Input  Arguments :  I 

Matrix  column  to  be  written  ; 

Column  number  of  ISTORE  in  matrix 

Starting  row  number  in  output  matrix  < 

Number  of  rows  in  ISTORE  ; 

Output  tape  number  j 

Work  area  for  compression  of  ISTORE  j 

Determines  whether  matrix  is  to  be  put  < 

into  compressed  form  i 

Sum  of  element  orders 

Output  Arguments :  None  f 

Error  Returns :  None 

9 

Culling  Sequence:  Call  US46I 

(ISTORE,  ICOL,  ISTART,  NROW,  KVA PE,  IWORK,  KODE,  NSUM) 

Input  Tapes :  None 

Output  Tape :  NTAPE 

Record  fcrma-c  is  ICOL,  KODE,  NUM,  (IWORK(I),  1=1,  NUM) 
where  ICOL  is  column  number,  KODE  equals  one  or  zero, 

NUM  is  number  of  words  remaining  in  record  and  IWORK  is 
the  compressed  or  uncompressed  version  of  ISTORE.  Each 
record  then  contains  NUM  +  3  words. 


ISTORE 

ICOL 

ISTART 

NROW 

NTAPE 

IWORK 

KODE 

NSUM 
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10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  required  is  3E0 

12.  Subroutine  User:  US*}60 

13.  Subroutines  Required:  None 

14.  Remarks:  None 


1.  Subroutine  Name:  US462 

2.  Purpose:  Create  a  list  which  defines  the  location  of  the 
contributions  of  an  element  to  the  assembly  transformation 
matrix. 

3-  Equations  and  Procedures:  The  degrees  of  freedom  for  each 
node  point,  with  respect  to  the  system  of  grid  points,  are 
calculated  and  placed  in  LIST.  LIST  is  therefore  of  length 
NNO*NTD.  The  formula  for  determining  this  location  is: 
LIST(K)  =  (NODES(I)  -  1)*NTD  +  L 

where  K  =  1,  2,  ...,  NNO*NTD 

I  =  1,  2,  ...,  NNO 

L  »  1,  2,  . ..,  NTD 

4.  Input  Arguments: 

NNO  -  number  of  element  node  points 

NODES  -  array  containing  element  node  point  numbers 

NTD  -  number  of  degrees  of  freedom  per  grid  point 

5.  Output  Arguments: 

LIST  -  array  containing  row  r umber  in  TA  matrix  for  each 
degree  of  freedom  for  each  element  node  point. 

6.  Error  Returns:  none 

(.  Calling  Sequence:  CALL  US462  (NNO,  NODES,  NTD,  LIST) 

8.  Input  Tapes:  none 

9.  Output  Tapes:  none 

10.  Scratch  Tapes:  none 

11.  Storage  Required:  total  storage  required  is  lFO.^  Bytes. 

12.  Subroutine  User:  US460 

13.  Subroutines  Required:  none 

l4»  Remarks:  none 
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1.  Subroutine  Name:  US463 

2.  Purpose:  Obtain  full  column  from  symmetrically  stored  matrix 

3.  Equations  and  Procedures:  For  a  symmetric  matrix,  column  is 
equivalent  to  row.  The  corresponding  row  to  ICOL  is  located 
and  the  elements  cf  that  row  up  to  and  including  the  diagonal 
element  are  placed  in  the  first  and  succeeding  position  of 
COL.  If  ICOL  was  the  last  column  of  the  matrix  the  process 
is  complete  and  control  is  returned  to  the  calling  program. 

If  ICOL  was  not  the  last  column  then  each  element  in  the 
ICOL  position  of  the  remaining  rows  is  placed  into  COL  and 
control  is  returned  to  the  calling  program. 

4.  Input  Arguments: 

SYM  symmetric  matrix  stored  lower  half  by  rows,  singly  sub¬ 
scripted 

N  order  of  SYM 

ICOL  Column  number  of  SYM  desired 

5.  Output  Arguments; 

COL  -  full  column  number  ICOL 

6.  Error  Returns:  none 

7.  Calling  Sequence:  CAL  US463  (SYM,  N,  ICOL,  COL) 

8.  Input  Tapes:  none 

9.  Output  Tapes:  none 

10.  Scratch  Tapes:  none 

11.  Storage  Required:  Total  storage  required  is  29A1g  Bytes. 

12.  Subroutine  User:  US460 

13.  Subroutines  Required:  none 

14.  Remarks:  none 


1.  Subroutine  Name:  ELMAT 

2.  Purpose:  To  output  as  a  format  matrix  element  matrices 

in  compressed  form  to  be  used  by  structural  modules  outside 
of  the  USERQJJ  module. 


3.  Equations  and  Procedures:  The  tape  containing  the 

information  generated  by  subroutines  REC3  and  REC1!  is  read 
and  then  merged  to  form  one  record  on  the  output  tape  for 
each  element.  The  record  written  for  each  element  is  as 
follows : 

JCOL , KODE , NUM , IEL , IPL , NORD , { LISTEL (I)  ,1*1, NORD ) 

NOINK , ( AKEL (I) ,1*1, NOINK ) 

NORD, (FTEL(I), 1*1, NORD) 

NNO, (NODES(I) ,I*1,NN0) 

NSEL ,  ( SEL  ( I ) ,  I  *  1 ,  NSEL ) 

NRSEL , ( SZ ALEL (I) ,1*1, NR SEL ) 

NO INK , ( ANEL ( I ) , I * 1 , NO INK ) 

NMASS , ( AMASS ( I ) , I * 1 , NMASS ) 

is  the  column  number 

is  equal  to  0  to  indicate  non-compression 
is  the  number  of  v/ords  remaining  in  the  record 
NU1<=2*N0INK+2*N0RD+NN0+NSEL+NRSEL+NMASS+1G 
is  vhe  element  number 
is  the  element  type  (plug  number) 
a  list  array  used  to  reorder  the  system  degrees 
of  freedom  of  length  NORD 

the  element  stiffness  matrix  of  iength  NOINK 
the  element  thermal  load  matrix  of  length  NORD 
an  array  containing  the  reference  points  for 
the  element  of  length  NNO 
the  element  stress  matrix  of  order  NSEL 
the  element  thermal  stress  matrix  of  order  NRSEL 
the  element  Incremental  matrix  of  order  NCINK 
the  element  mass  matrix  of  order  NMASS 


where, 

JCOL 

KODE 

NUM 

IEL 

IPL 

LISTEL 

AKEL 

FTEL 

NODES 

SEL 

SZALEL 

ANEL 

AMASS 


H. 
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Input  Arguments: 


NELEM 

MAXELM 

NAME 

NSET 

NTAPE 

NWORK 

MAT 


number  of  elements  in  analysis 
length  of  maximum  element  record 
arra;  containing  name  of  output  matrix 
data  set  number  of  output  matrix 
data  set  number  of  input  element  tape 
number  of  words  of  work  storage  available 
work  storage  for  reading  NTAPE  element  data 


Output  Arguments:  None 
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None 


6.  Error  Returns: 

7.  Calling  Sequence: 

ELMAT  ( NELEM ,  MAXELM ,  NAME ,  NSET ,  NTA  PE ,  NV/ORK ,  HAT ) 

8.  Input  Tapes:  NTAPE 

9.  Output  Tape:  NSET 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  required  is  6??^^  Bytes. 

12.  Subroutine  User:  USQ4B 

13.  Subroutine  Required: 

EUTL5 

EUTL6 

14.  Remarks:  None 


8.451 


1.  Subroutine  Name:  PLU'JlO 

2.  Purpose:  Generate  the  following  element  matrices  of  a 

tetrahedron  according  to  equations  furnished  by  J.  Batt . 

(a)  Stiffness  if  KK  1-  0. 

(b)  Stress  if  KS  /  0. 

(c)  Thermal  load  if  KF  ^  0. 

(d;  Thermal  Stress  if  KTS  ^  0. 

(e'  Mass  if  KM  ^  0. 

3.  Equations  and  Procedures: 

(a)  Zero  out  stiffness  (AKEL3)>  stress  (SEL3)>  thermal 
load  (FEL3)  and  thermal  stress  (SIGEL)  matrices. 

(b)  Call  subroutine  VOL  to  find  volume. 

(c)  Call  subroutines  to  form  [EM]  and  [B]  matrices. 

(d)  Form  TM  and  TMC  matrices  if  pressure  is  present  or  mass 

matrix  is  to  be  calculated 

(e)  If  KTS  and  KF  ?  0  form 

1)  {a}  =  (aAT  +  e} 

If  KTS  t  0,  form 

2)  {Sa}  =  [EM]  {a} 

(f)  If  KK,  KS,  KF  =  0,  go  to  (i),  otherwise  do  the  following 

[SEL3]  =  [EM][B] 

(g)  If  KK  t  0,  form 

1)  [AKEL]  =  [BjT[SEL3]  =  [B]T[EM][B] 

2)  Call  MSTF  to  store  [AKEL]  into  [AKEL3] . 

(h)  If  KF  ?  0,  form 

1)  {FTH}  =  [EM][B]{cO  =  [SEL3]  {a} 

2)  Form  Pressure  load  matrix  according  to  new 
equations:  {FP}  -*■  (See  P10FP  writeup) 

3)  Add  {FPL}  and  {FEL}  to  form  {FEL3). 

(i)  If  KM^O,  form 

•» 

1)  Call  CmASS  to  form  [M]  where  [M]  is  in  the  local 
u,v,w  system 

2)  Form  [AMASS]  =  [T^]^[M][T^]  in  global  system- 
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t.-c  -  ■  -■  . 


Input  Arguments: 


IPL  -  Plug  number  -  10 

NNO  -  Number  of  nodes  =  4 

X,Y,Z  -  Coordinates  of  element 

TEL, PEL  -  Temperature  and  pressure  of  element 

NORD  -  Order  of  stiffness  matrix 

NODES  -  Nodes  of  element 

KK,KF,KS,KTS,KM  -  Controls  on  calculations  of  stiffness, 

thermal  load,  stress,  thermal  stress  and 
mass  matrices 

EPSLO,SO-  Input  strains  and  stresses 
MAT  -  Material  properties  array 

EXTRA  -  External  date  -  not  used. 

Output  Arguments: 

AKEL3  -  Stiffness  matrix 

FEL3  -  Thermal  load  matrix 

SEL3  -  Stress  matrix 

SIGEL  -  Thermal  stress  matrix 

AMASS  -  Consistent  mass  matrix 

NRSEL  -  Number  of  rows  in  stress  and  thermal  stress 
matrices  =  6 

NOINK, NMASS,NSEL  -  Number  of  elements  in  stiffness,  mass 

and  stress  matrices  (respectfully  78,78,72) 

Error  Returns :  Standard  eri’or  return  by  ELTEST 

Calling  Sequence: 

Cal 1  PLUG10 ( I PL , NNO , X , Y , Z , TEL , PEL , QSEL , IP , NORD , NFRR , NOINK , 
AKEL3 , ANEL3 , PEL3 , SEL3 , SIGEL , AMASS , DAMPV, DAMPS , 
NRSEL , INNO ,  1  >DES , NMASS , NDMPV , NDMPS , NSEL , KK , KF , 

KS , KTS , KM , KDS , KDV , KN, IUSEL, EPSLO , SO , MAT , EXTRA , 
GPAXEL , ND IR , NDEG , I CONT ) 

Input  Tapes:  None 

Output  Tapes :  None 

Scratch  Tapes :  None 

Storage  Required: 

SIGEL( 6 ) ,  X(H),  Z(H),  EM ( 2 1 ) ,  FEL3(6),  TSTR(6),  B(6,12), 
SEL3(6,12),  AKEL(12 ,2 ) ,  AKEL3(1),  TEL(12,2),  PEL(12,2), 

AMASS ( 1 ) ,  EMASS(78),  FPL( 12 ) ,  FP(12),  TM(12,12),  TMC(3,3), 
EPSLO  ( 1 ) ,  SO(l>,  MAT(l),  EXTRA(l),  NODES(l),  Y(ff) 


12. 


Subroutine  User: 


PLUG12 


13.  Subroutines  Required: 

ELTEST,  VOL,  TRAAE,  BDEF,  P10TM,  MPRD,  TPRD,  MSTR,  P10FP, 
CMASS,  BCS,  SYMPRT,  TXOUT 

14 .  Remarks : 

PEL(1,1]  is  pressure  of  face  431 
PEL(2,lj  is  pressure  of  face  432 
PEL (3, 1)  is  pressure  of  face  421 
?EL(4,1)  is  pressure  of  face  321 

See  AFFDL-TR-72-42,  Volume  I,  Engineer’s  Manual  for 
PLIJG10  equations. 
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1.  Subroutine  Name:  VOL 


2 .  Purpose : 

To  set  up  a  function  to  calculate  the  volume  of  the  tetrahedron 
element 

3*  Equations  and  Procedures: 


V  =  1/6 


1  x. 


1  x, 

1  X, 


4 .  Input  Arguments : 

X,Y,Z  -  coordinate?  of  tetrahedron 

5.  Outpu*-  Arguments : 

VOL  -  volume  of  tetrahedron 

6.  Error  Returns:  None 

7 •  Calling  Sequence: 

Function  VOL  (X,Y,Z) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  User:  PLUG10 

12.  Subroutine  Required:  None 

13.  Remarks :  None 


8.^55 


Subroutine  Name: 


CMASS 


Purpose:  Form  the  local  consistent  mass  matrix 

Equations  and  Procedures: 


(a)  Compute  the  CONST  =  ^ 


(b)  Consistent  mass  matrix  and  labeling  is 

u. 


CONST 


u. 


u- 


V. 


(c)  Assemble  above  constants  as  follows: 

r  uiiviKi^Nu3iv3i«3iwiwri 


et 


4.  Input  Arguments: 

V  -  Volume  of  the  tetrahedron 
RHO  -  Mass  density 

5.  Output  Arguments: 

CMAS-  Element  mass  matrix  in  local  reordered  system 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  CMASS  (V, RHO, CMAS) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  CMAS(l) 

12.  Subroutine  User:  PLUG10 

13.  Subroutine  Required:  None 

14 .  Remarks :  None 


8.457 


BDEF 


1.  Subroutine  Name: 

2.  Purpose:  Form  the  coordinate  and  area  matrices  matrix 

3.  Equations  and  Procedures: 

(a)  Form  the  A  matrix  from  input  coordinates. 

(b)  Invert  the  A-matrix  which  gives  projected  areas  of 
element 

(c)  Form  the  B-matrix  according  to  equations  from  the 
inverted  A-matrlx  in  U,V,W  notation. 

.  Input  Arguments: 

X,Y,Z  -  Coordinates  of  element 

V/1PR  -  Print  option 

NRB,NCB  -  Number  of  rows  and  column.,  in  h  matrix 

r>.  Output  Arguments: 

A  -  Projected  area  matrix 

B  -  Coordinate  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Cal  1  BDEF ( X , Y , Z , WI PR , NRB , NCB , A , B ) 

8.  Input  Tapes:  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

B( NRB, NCB) ,  Z(l),  v(l),  X(l) 

A(M)>  EL(1| ),  EM('I) 

12.  Subroutine  User:  PL1JG10 

13.  Subroutine  Required:  MINV 

111.  Remarks:  None 


8 . 1458 


. to 


Subroutine  Name:  P10TM 

Purpose:  Form  the  transformation  matrix  of  direction 

cosines  for  the  tetrahedron  if  pressures  or  mass  is 
present. 

Equations  and  Procedures: 


ell 

= 

x3-xi  ,  e.2  = 

y3'yl  ’  e13  =  z3“zl 

e31 

ss 

(y3-y1)(z2“zi)  “ 

(y2-yl)(z3"zl) 

e32 

= 

(x2_x1)(z3"zi^  “ 

(x3-x1)(z2-z1) 

e33 

s 

(x3-x1)(y2-y1)  - 

(x2“xl)(yx"yl) 

e21 

r. 

e32e13  “  ft12e33 

e22 

= 

elle33  “  e31e13 

e23 

= 

e31e12  "  elle32 

el 

= 

(ell2  +  e122  +  e 

2,1/  2 

13  ; 

*2 

= 

^e21  +  e22  +  e 

2,1/2 

23  1 

2 


2 


2,1/2 


Then  store  £tm]  into  [T^]  as 


r 

L 


tfm] 

0 

0 

0 

0 

CTM3 

0 

0 

0 

0 

CTM] 

0 

0 

0 

0 

[tm; 

Input  Arguments: 

X,  Y,  Z  -  Input  x,y,z  coora  naces 
WIPR  -  Print  option 


Output  Arguments: 

[T^]  -  Point  transformation  matrix 

[TM]  -  Element  transformation  matrix 

Error  Returns :  None 

Calling  Sequence: 

Call  P10TM(X, Y, Z,WIPR,TMC,TM) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 
Storage  Required: 

XU),  Y(l),  2(1),  TMC(3,3),  TM(12,12),  El(3),  E2(3), 
23(3),  EB(3) 

Subroutine  User:  PLUG10 

Subroutine  Required:  None 


Remarks :  None 


'  7-T  — ■'f 


1.  Subroutine  Name:  P10PP 

2.  Purpose:  Form  the  local  pressure  matrix  in  the  u,v, 

and  w  notation. 

3.  Equations  and  Procedures: 

(a)  The  equation  for  the  local  pressure  load  io 

<V  =  [T]T(V  +  CT1]T‘V  +  CT2jT{5p2> 

(b)  Procedure: 

1.  Noting  the  [T]  is  a  reordering  matrix  to  u,  v,  w 
notation  only,  the  product  of 

[T]T{Fp} 

in  the  reordered  system  is 


r 

r  „ 

FPul 

o 

PPvl 

pi 

PPwl 

P2  -  P3 

PPu2 

0 

PPv2 

l  J 

0 

PPw2 

I  =  1 

P2 

FPu3 

0 

FPv3 

pl 

FPw3 

p2  -  P3 

PPu* 

0 

PPvU 

pl 

L  PPw4  _> 

-  "P3  J 

8. *61 


Where: 


P1  =  Ip431A431cos6 

p2  =  Ip321A321 

p3  =  +^P431AJi31sin0 


-1/ 

6  =  tan 

^  ) 

*  •> 

x4 

y4 

’  =  ^M-1  ' 

^Z4  / 

• 

XEL(4) 
YEL(4 ) 

z4 

ZEL(4) 

2.  Noting  that  contains  4  pairs  of  3  constants  in 
the  12  x  4  matrix,  the  contribution  here  becomes 


,  T 


LrPxlsFPylsetc*J  =  [j5>0>0>ci^c2»c3 


C1,C2,C3 


C1,C2,C 


where  c^  =  pT^ 
c2  =  pT2 

c3  "  pT3 
P  -  3P1132  1)32 

T1,T2»T3  are  typical  direction  cosines 


3.  Noting  that  T2  is  similar  to  (just  different 
values  of  T^jTgjT^),  the  contribution  becomes 


8.462 


l/?xl,FPyl,etc J  =  |^i»c2»c3>cl>c2,c3,0,0,0»cl,c2,c3j 
wh>ire  C1  = 

°2  =  pT2 

°3  =  pT3 
1 

?  3p421a421 

Ti#T2,T,  are  typical  direction  cosines 


4 -  Input  Arguments: 

PEL  -  Pressures  on  faces  of  tetrahedron 

B  -  Matrix  which  contains  local  areas 

XEL,YEL,ZEL  -  Coordinates  of  element 
TMC  -  Transformation  matrix 

A  -  Area  matrix 

IPRT  -  Print  option 

5.  Output  Arguments: 

FPL  -  Pressure  load 

FP  -  Working  pressure  array 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  PI 0 FP ( PEL , XEL , YEL , ZEL , TMC , A , I PRT , FPL , FP ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

in.  Scratch  Tapes:  None 

11.  Storage  Required: 

PEL(12,2),  TMCf  3*3),  A(M),  SA(3),  SMA(3),  FP(12),  XEL(l), 
YEL(l) ,  ZELU),  X(3),  XL(  35 ,  FPL(l) 


8./I63 


~ .  ...  -  -a.  4,--.  .  . . 


12.  Subroutine  User:  PLUQ10 

13.  Subroutines  Required:  MPRD 

14 .  Remarks : 

p431  is  pressure  on  face  431  *  PEL(1,1) 

p432  is  pressure  on  face  432  ■  PEL(2,1) 

p421  is  pressure  on  face  421  «  PEL(3,1) 

p321  is  pressure  on  face  321  *  PEL(4,1) 

is  total  projected  area  of  face  431 

A^2  is  total  projected  area  of  face  432 

A421  fcota^-  Projected  area  of  face  421 

A^21  is  total  projected  area  of  face  321 


8.464 


1. 


Subroutine  Name: 


PLUG13 


2.  Purpose:  To  form  the  element  stiffness,  stress,  thermal 

load,  thermal  stress  and  mass  matrices  for  the  triangular 
prism. 

Equations  and  Procedures: 

The  triangular  prism  is  composed  of  3  tetrahedrons: 

A.  For  each  tetrahedon,  the  following  is  done. 

(1)  Pick  up  coordinates,  pressures,  nodes,  temperatures 
of  the  tetrahedron. 

(2)  Call  PLUG10  to  generate  the  appropriate  element 
matrices  the  tetrahedron. 

(3)  Assemble  the  tetrahedron  contribution  to  the 
stiffness  and  thermal  load  matrices  of  the  prism. 

(4)  Assemble  the  tetrahedron  contribution  to  the 
stress  and  thermal  stress  matrices  of  the  prism. 

B.  If  symmetric  wing  analysis  (Nodes  4,5,6  »  0),  form  a  trans¬ 

formation  matrix  and  transform  the  generated  element 
matrices  of  the  prism  for  the  reduced  system. 

4 .  Input  Arguments : 

IPL  ~  Plug  number  *  13 

NNO, NODES  -  Number  of  nodes  and  node  points  of  elements 
X,Y,Z,TEL,PEL  -  Coordinates,  temperatures  and  pressures  of 

element 

KK,KF,KS,KTS,KM-  Controls  on  stiffness,  thermal  load,  stress, 

thermal  3tress  and  mass  calculations 
EPSL0,S0-  Initial  strains  and  stresses 
MAT  -  Material  properties  array 

5.  Output  Arguments: 

NORD  -  Order  of  stiffness 

NOINK, NMASS  -  Number  of  terms  in  stiffness  and  mass  matrices 

NRSEL,NSEL  -  Number  of  rows  and  terms  in  stress  matrix 

AKEL3 , FEL3 , SEL3 , SIOEL , AMAS1  -  Element  stiffness,  thermal  load, 

stress,  thermal  stress  and  mass 
matrices 

6.  Error  Returns:  Standard  returns  by  ELTEST 


8.465 


-T^TVT7T^r»rjy<  fyr -&-  -a*- V"1^  *1  -*-*,»  £  V*-w<  ■*'■  "4  ^CS%  ^  -\s 


tc>  js  y  ^rrjrr^TSTpt-Tt  ^ 


Calling  Sequence: 


Call  PLUG13  ( IPL , NNO , X , Y , Z , TEL ,  PEL , QSEL ,  I F , WORD , NERR , 

NOINK , AKEL3 , ANEI>3 ,FEL3, SEL3 , SIGEL, AMAS1 , 

DAMPV , DAMPS , NRSEL , INNO , NODES , NMASS , NDMPV , 

NDMPS , NSEL , KK , KF , KS , KTS , KM , KDS , KDV , KN , IUSEL , 

EPSLO ,  SO ,  MAT ,  EXTRA ,  G PAXEL ,  NDIR  ,  NI'SQ  ,  ICONT ) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required: 

SIGEL(18),  X(6) ,  Z(6) ,  PEL3U8),  SEL3(l8,l8),  A».2L3(171), 
NODES ( 1 ) ,  Y  (6) ,  EXTRA ( 1 ) ,  EPSLO(l),  SO(l),  TEL(12-,2), 
PEL(21,2),  MAT(l),  LISTA(4,3),  LISTB()2,3),  LIST(12), 
AMASl(l),  DUM(l3),  XX(4),  YY<^4 )  -  ZZ(4),  NODESZ(4),  TTL(12,2), 
PPL(12,2),  EXTPR { 6 ) ,  AKEL3Z(78)>  ?EL3Z(12),  SEL3Z(6,12), 
SIGEL(6 ) ,  AMASS  (?8 ) ,  TR(l8,S),  SfcL3T(l8,9),  AKELR(45)> 

PELR ( 9 ) 

Subroutine  User:  ELPLUG 


Subroutines  Required: 

ELTEST,  PLUG10,  POOF,  TXOUT,  SYMPRT,  BCB,  MPRD,  TPRD 
Remarks : 


PEL(1,1)  is  pressure  on  face  123 
PEL(2,1)  is  pressure  on  face  456 
PEL(3,1)  is  pressure  on  face  2365 
PEL(4,1)  is  pressure  on  face  1364 
PEL(5,1)  is  pressure  on  face  2541 


has  2  tetrahedrons 


8.466 


Subroutine  Name: 


PLUG20 


Purpose:  Generate  stiffness,  stress,  thermal  force, 

thermal  stress  matrices  and  mass  matrices  for  the  rectangular 
prism. 

Equations  and  Procedures: 

A.  Set  constants  and  if  nodes  (9)5*0,  then  constant  strain 
approach  is  used  for  thermal  stress,  and  thermal  load 
matrices . 

B.  Zero  out  element  matrices. 

C.  Call  GEOMD  to  calculate  lengths  and  transformation  matrix 
of  element . 

D.  Call  TRAAE  to  generate  [EM].  [KCPSYM] 

E.  Generate  integrals  and  form  K-curl  -  prime  from  integral.-. 

F.  Call  GAMMAG  to  form  reordering  transformation  matrix. 

G.  Call  GAMMAS  to  form  local  to  global  transformation. 

H.  Form  final  transformation  matrix  [GPGGS]. 

I.  If  KK^O ,  then 

(i)  Form  [ KCURL]  »  i/(8abc)2  [KCPSYM] 

(ii)  Form  [AK]  =  [GPGGS]T[KCURL  )[GPGGS] . 

J.  If  KS?*0,  or  constant  strain  approach  is  used,  then 
(l)  Call  subroutine  to  form  [D1SP] 

(it)  Generate  [STR]  *  [EH][DISP][GPGGS] . 

K.  If  KM-0,  then 

(i)  Call  MASS20  to  form  local  mass  in  [TEMP] 

< 1 1 )  Generate  [MASXP]  *  [ GPGGS]T[TKMP]rGPGG3] . 

L.  If  KTS  and  KF/0,  then  call  P20FT  to  form  thermal  load  and 
thermal  stress. 

Input  Arguments: 

I PL  -  PLUG  Number  =  20 

NNO  -  Number  of  node  points  =  8 

XC,YC,ZC  -  Coordinates  of  element 

TEL  -  Temperatures  at  grid  points 

NODES  -  Node  points  of  element 

NPSL  -  Number  of  input  strains  =  6 

NPSS  -  Number  of  input  stresses  =  6 

KK*KM,KS,KF,KTS  -  Controls  to  calculate  stiffness,  mass,  stress, 

thermal  load,  and  thermal  stress  matrices. 

EPS LON  -  InJtial  input  strains 

MAT  -  Material  properties  arrays 

EXTRA  -  External  data  •*  not  used 


5.  Output  Arguments: 


AK,STH, FTXP,TS,MASXP  -  Stiffness,  stress,  thermal  load, 

thermal  stress  and  mass  matrices 
NOINK, NMPSS  -  Number  of  elements  in  stiffness  and  mass 
.matrices  =  300 

NRSEL  -  Number  of  rows  in  stress  matrix  =  6 

NSEL  -  Number  of  elements  in  stress  matrix 

6.  Error  Returns: 

NERR  -  Set  if  wrong  plug  or  bad  input  data 

?.  Calling  Sequence: 

Call  PLUG20 ( I PL , NNO , XC , YC , ZC , TEL , PEL , QSEL , I P , NORD , NERR , NOINK , 
AK , ANEL, FTXP , STR , TS , MASXP , DAHPV , DAMPS , NRSEL , INC , 
NODES , NMASS , NPSL , NPSS , NSEL , KK , KF , KS , KTS , KM , KDS , 

KDV , KN , IUSEL , EPSLON , SIG  Z  ER , MAT , EXTRA , G  PAXEL , ND IR , 
NDEG, ICONT) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required: 

EM(21),AK(300),STR(1*I*I),MAT(1),MA3XP(1),XIXYZ(6*1),X13YM(36), 
KCPSYM( 300 ) , KCURL( 300 ) ,GAMGGP( 576) ,GAMGSv 576 ) ,XC(1 ) , YC ( 1 ) , 
ZC(1),TGS(9)  ,XG(2*»),XS(2*1),TEMP(300),G2GGP(2*1,2*:),G2GS(2*J,2*1), 
FTXP(  1 )  ,TS(  1 )  ,DISP(  1*1*1 ) ,  DELTAT(8  )  ,XYZ  ( 108 ) ,  ALPHAC  (2*I,8),P(2*1,2*1), 
TEL(  12, 2), BM (3, 2*0  ,GPGGS(  2*1 , 2*1 )  ,  TEMP  ( 2*1  ) ,  EPSLON  ,1),  SIGZER(  1 ) , 
NODES ( 1 ) , AMP(  36 ) ,  PEL(12,2)  ,FP(2*1 ) , EXTRA ( 1 ) 

12.  Subroutine  User:  ELPLUG 

13.  Subroutine  Required: 

ELTEST , G EOMD , TR AAE , MPOW J F ,  GAMMAG, GAMMAS, BOB, DISPMT,MPRD, 

MASS20 , P20FT 

1*1.  Remarks: 


EXTRA ( 1 ) 
(2) 
(3) 
(*0 

(5) 

(6) 


is  pressure  on  force  123*1  t 

11  11  11  11  5678  » 

11  11  11  11  1*158  1 

>1  n  11  11  2367 

»  11  11  11  ]  256  t 

11  11  11  11  3*178 


x  element  pressures 
y  element  pressures 
z  element  pressures 


3.  *168 


1.  Subroutine  Name:  TRAAE 

2.  Purpose: 

form  the  elastic  constant  matrix  [EM] 

3 •  Equations  and  Procedures :  None 

4 .  Input  Arguments: 

ER,ETHETA,EZ  -  modulus  of  elasticity 
VRO,VOZ,VZR  -  poisson* s  ratio 

GRZ,GOZ,GZR  -  shear  modulus 

NORDER  -  order  of  matrix  *  6 

5 .  Output  Arguments : 

EM  -  ele  sic  constants  matrix 

6.  Error  Returns:  None 
7 •  Calling  Sequence: 

Call  TRAAE  (ER,ETHETA,EZ,VR0,V0Z,VZR,GRZ,GAM,TE0>EM,E,E1,  WIPR, 
NORDEH,  GOZjGZR) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  Used:  Several  plugs 

12.  Subroutine  Required:  None 
13*  Remarks : 

TE0,GAM,E,  and  El  are  not  used 
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1.  Subroutine  Name:  GEOMD 

2.  Purpose:  Generate  geometric  data  from  coordinates  of  the 

8  node  points  of  the  rectangular  prism  element. 

3.  Equations  and  Procedures: 

A.  Calculate  A,  B,  and  C  half-edges  from  coordinates. 

B.  Generate  unit  vectors  along  element  X,  Y  and  Z  axis. 

C.  Generate  TGS  element-to-system  transformation  matrix. 

D.  Generate  XG  array  of  rotated  element  coordinates. 


4 .  Input  Arguments: 

XC  -  X-ooordinates  of  the  8  element  grid  points  in  system 
coordinates 

YC  -  Same  for  Y-coordi nates 

Z‘J  -  Same  fc-r  Z-coordinates . 

t5.  Output  Arguments: 

A  -  Half-edg*  of  prism  along  element  X-axis 

B  -  HaLf-edge  of  prism  along  element  Y-axis 

C  -  Half-edge  of  prism  along  element  Z-axis 

TGS  -  Point  transformation  matrix  for  element:  Rotates 

element  axes  parallel  to  system  axes  (3x3) 

XS  -  Array  of  system  coordinates  of  grid  points  (3x8) 

XG  -  Array  of  (transformed)  element  coordinates  of  grid 

points  (3x8) 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  GEOMD  (XC, YC , ZC , A , B ,C ,TGS, XG , XS) 

8.  Input  Tapes:  None 

Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

XC(8 ) :  YC(8):  ZC(8)  1  T  ... 

TGS(9);  XG(  24 ) ;  XS(?4 )  J  In  calUnc  Program 

RX(3) ;  RY( 3) ;  RZ(3)  —  In  subroutine 

12.  Subroutine  User:  PLUG 20 

13.  Subroutines  Required:  MPRD 

l1!.  Remarks:  W'  rn? 
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1.  Subroutine  Name:  GANMAG 

2.  Purpose:  Generate  transformation  matrix  (24x24)  to  reorder 

variable  sequence  from  . . .  »Ug,Vj  >V2»V3»*  . .  ,Vg, 

^1*^2  ’^3*  *  *  *  ,  1^2 J^2  *  *  * "  * ^8  *^8  *^8 

3-  Equations  and  Procedures: 

Store  1.0  in  the  appropriate  location  of  the  transformation 
matrix. 

4.  Input  Arguments:  None 

5.  Output  Argume  ts: 

GAMGGP  -  The  desired  matrix  (24x24)  stored  singly  - 
dimensioned,  column- sequentially . 


6. 

Error  Returns :  None 

7. 

Calling  Sequence: 

Call  GAMMAG (GAMGGP) 

8. 

Input  Tapes :  None 

9. 

Output  Tapes:  None 

10. 

Scratch  Tapes:  None 

11. 

Storage  Required; 

GAMGGP(57^)  -  In  calling  program 

12. 

Subroutine  User:  PLUG 20 

13. 

Subroutines  Required: 

None 

14. 

Remarks :  None 
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Subroutine  Name: 


GAMMAS 


Purpose:  Generate  transformation  matrix  from  element 

coordinates  to  system  coordinates  using  the  point-trans¬ 
formation  matrix  of  element. 

Equations  and  Procedures: 

See  Engineer’s  Manual  for  mathematical  formulation  of  Gamma- 
Sub=GS  matrix. 

Input  Arguments: 

TGS  -  Point  transformation  matrix  generated  from  geometric 
data  by  "GEOMD",  stored  singly  dimensioned,  column¬ 
wise  (3x3). 

Output  Arguments: 

GAMGS-  Element-to-system  transformation  matrix 

stored  singly-dimensioned,  column-sequentially 

Error  Returns:  None 

Calling  Sequence: 

Call  GAMMAS  (GAMGS, TGS) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required: 

GAMGS(576),  TGS(9)  -  In  calling  program 
Subroutine  User:  PLUGPO 

Subroutines  Required:  None 

Remarks:  None 
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Subroutine  N'ame:  PISPMT 

Purpose:  .  Generate  strain-displacement  (D)  matrix  for 

rectangular  prism  element  with  forces  concentrated  at  the 
centroid . 

Equations  and  Procedures: 

See  Engineer's  Manual  for  mathematical  formulation  of  the 
D-matrix. 

Input  Arguments: 

A  -  Half-edge  of  prism  along  element  >C-axis 

B  -  Half-edge  o*’  prism  along  element  Y-axis 

C  -  Half-edge  of  prism  along  element  Z-axis 

Output  Arguments: 

DISP  -  The  desired  strain-displacement  matrix  (6X21!),  stored 
singly-subscripted ,  columnwise. 

E^ror  Returns:  None 

Calling  Sequence: 

Call  DISPMT( A ,B ,C ,DISP) 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 

Storage  Required: 

DISP(lM)  -  In  calling  program 

Subroutine  User:  PLUG20 

Subroutines  Required:  None 


Remarks : 


None 


Subroutine  Name:  MPOWJF 

Purpose:  Print  out  a  matrix,  labeling  rows  and  optionally 

labeling  columns. 

Equations  and  Procedures: 

If  number  of  columns^S,  print  one-number*  column  titles 
only : 

Column 

123*15678 

If  8<number  of  columns£l6,  print  two-number  column  titles 
only : 

Column 

1.9  2,10  3,11  4,12  5,1  3  6,3 7,15  8,16 

If  l6<number  of  coll  mns£24 ,  print  three-number  columns 
titles : 

Columns 

1,9,17  2,10,18  3,11,19  *«,12,20  5,13,21 
6, l'l, 22  7,15,23  8,16,21) 

Label  rows: 

Row  1  -  -  - 

Row  2  -  -  -  ...  etc . 

Input  Arguments: 

A  -  Matrix  to  be  printed  out  -  stored  singly-dimensioned 

N  -  Number  of  rows  in  A 

M  -  Number  of  columns  in  A 

L  -  Storage  Code 

0  =  General  (column  sequential) 

1  =  Symmetric  (lower  symmetric  row-wise  or  upper 

symmetric  column-wise) 

2  =  Diagonal  (diagonal  elements  only) 

ITITLE  -  Code  fur  desired  column  titling 

0  =  Do  not  title  -  label  supplied  externally 
(skip  one  line  and  s.ta  t) 

1  =  Title  for  8  columns  only 

2  -  Title  for  16  columns  only 

3  =  Title  for  24  columns 

Output  Arguments:  None 

Error  Returns:  None 
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7.  Calling  Sequence: 

Call  MPOWJP  (A,N,M,L,ITITLE) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tape:;:  None 

11.  Storage  Required: 

A(  )  -  Variable  up  to  576  -  in  calling  program 
B(50)  -  In  subroutine 

12.  Subroutine  User:  PLUG20 

13.  Subroutine  Required:  None 

l1!.  Remarks: 

This  printout;  subroutine  stands  by  itself,  and  may  be  used 
for  general  purpose  writing  ox  matrices  with  or  without 
column  titles.  Built-in  titles  extend  only  up  to  2*1  column: 
but  if  no  title  is  requested,  there  is  no  limitation  on 
the  number  of  rows  or  columns  for  a  general  or  symmetric 
matrix.  Diagonal  matrices  are  limited  to  less  than  50x50. 
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1  Subroutine  Name:  P20PP 

2.  Purpose:  Form  the  pressure  vector  in  local  coordinates 

based  upon  pressures  input  on  element  level. 

3*  Equations  and  Procedures: 

See  Engineer's  Manual  for  equations  of  the  local  pressure 
vector. 

4.  Input  Arguments: 

A,B,C  -  Lengths  of  sides  of  prism 

PEL  -  Pressure  array 

5»  Output  Arguments: 

FP  -  Local  pressure  vector 

6.  Error  Returns:  None 

7*  Calling  Sequence: 

Call  P20p?  ( A, B,C, PEL,FP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

PEL (12, 2) ;  FP(1) 

12.  Subroutine  User:  P20FT 

13*  Subroutine  Required;  None 
l'f .  Remarks:  None 
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Subroutine  Name:  TXOUT 


2 .  Purpose : 

Print  element  matrices  dependent  upon  input  data 

3.  Equations  and  Procedures :  None 
4 -  Input  Arguments : 


ICODE 

-  title  of  matrix 

A 

-  matrices  to  be  printed 

M 

0 

number  of  rows 

M 

number  of  columns 

MS 

storage  mode  of  matrix 

=  0  for  general 
=  1  fo1”  symmetric 
=  2  for  diagonal 

LINS 

number  of  lines/pagt-  = 

60 

IPOS 

-  number  of  characters  per  line  =  132 

ISP 

-  line  spacing  code  =  1 

for  single  space 

=  2 

for  double  space 

5.  Output  Arguments:  None 

6.  Error  Returns:  None 

7.  Calling;  Sequence: 

Call  TXOUT  ( ICODE , A , N , M, MS , LINS , IPOS , ISP } 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  Use.-:  Various  Plugs 

12.  Subroutine  Required:  None 

13.  Remarks :  None 
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1.  Subroutine  Name:  P20FT 

2.  Purpose:  Form  the  thermal  load  and  thermal  stress  matrices 

for  the  rectangular  prism  dependent  upon  whether  the  element 
is  at  a  constant  or  varying  strain. 

3.  Equations  and  Procedures: 

A.  For  Constant  Strain  Approach, 

(1)  Determine  {a AT  +  e}  where  AT  =  TaverSge  -  TQ 

(2)  If  KTS  ¥  C  form  thermal  stress 

{TS}  =  [EM]  (oAT  +  e} 

(3)  If  KF  t  0,  form  temporary  local  thermal  load 

[P]  =  [DISPJT[EM] 

{TEMP}  »  [P]  {a AT  +  z) 


B.  For  Varying  Strain  Approach, 


(1)  Form  (AT)  »  {TEMPj-  TQ} 


(2)  Form  [a] 


where  TEMP,  is  temperature 
of  grid  points 

i.  i. 

where  [I]  is  an  order 
identity  matrix 


(3)  Compute  {TEMPI}  -  [a]  {aT} 

(<!)  Add  initial  strains  (e)  to  {TEMPI} 


(b)  If  KTS  /  0,  do  the  following  for  thermal  stress 

(a)  Form  [B] 

(b)  Compute  {TEMP}  =  [B]  {TEMPI} 

(c)  Compute  thermal  stress  {TS}  =  [F.M]  {TEMP} 

C.  Call  subroutine  to  form  the  loads  due  to  pressure. 

D.  Add  pressure  load  to  local  thermal  load  {TEMP} 

E.  Form  global  thermal  load 

{FTXP}  =  [GPGGS]T{TEMP} 
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Input  Arguments: 

MAT  -  Material  properties 
EM  -  Material  properties  matrix 
XYZ  -  Table  of  integrals 

TEL, PEL  -  Temperature  and  pressures  of  element 
A,B,C  -  Lengths  of  element 

ICON  -  Control  for  constant  or  varying  strain  calculations 

KP,KTS  -  Controls  for  thermal  load  and  stress  calculation:- 

IPR  -  Print  option 

EPSLON  -  Input  strains 

DISP  -  Strain  -  displacement  matrix 

GPGGS  -  Transformation  matrix  to  global  system 

CONST  -  Constant  for  thermal  load 

5.  Output  Arguments: 

FTXP  -  global  thermal  load 
TS  -  Thermal  stress 

0 .  Error  Returns :  None 

7.  Calling  Sequence: 

Call  P20FT(MAT, EM, XYZ, TEL, PEL, A, B,C, ICON, KF.KTS, IPR, EPSLON, 
DISP, GPGGS, CONST, FTXP, TS,DELTAT,ALPHAC,P,BM, 

TEMP, TEMPI, FP) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

DELTAT(l),  MAT(l),  EMU),  XYZ(l),  ALPHAC(  2^,8),  P(2n  ,24  ) , 

TEL (12,2),  BM ( 3 , 2 A ) ,  PEL(12,2),  EPSLON(l),  DISP(6,2'0, 

GPGGS (24 , 2*0,  FTXP(l),  TS(1),  TEMP(l),  TEMPl(l),  FP(1) 

12.  Subroutine  User:  PLUG20 

13.  Subroutines  Required: 

MPOWJF,  MPRD,  TPRD,  P20FF,  MATB 

14.  Remarks:  None 
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Subroutine  Name: 


MASS20 


2.  Purpose:  Form  the  consistent  mass  matrix  for  the 

rectangular  prism. 

3.  Equations  and  Procedures: 

(a)  Form  symmetric  TAMP]  according  to  equations  in 
Engineer's  Manual. 

(b)  Assemble  [AMP]  into  UU  portion  of  [AMCURL]  where 
[AMCURL]  matrix  can  be  partitioned  as: 


u  v  w 


(c)  Call  subroutine  to  assemble  [AMP]  into  VV  and  WW 
parts  of  [AMCURL]. 

*i.  Input  Arguments: 

A 3 B, C  -  Dimensions  of  elements 

DENS  -  Density  of  material 

5.  Output  Arguments: 

AMP  -  Consistent  mass  matrix  [M] 

AMCURL  -  Full  consistent  mass  matrix  in  local  system 

6.  Error  Returns:  None 

7-  Calling  Sequence: 

Call  MASS20  ( A , B , C , DENS , AMP , AMCURL ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  AMP(l);  AMCURL(l) 

12.  Subroutine  User:  PLUG20 

13.  Subroutines  Required: 

PASSYM  -  Assembles  a  small  symmetric  matrix  into  a  larger 
symmetric  matrix 


1*1.  Remarks: 


None 
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1. 


Subroutine  Name: 


PASSYM 


2. 

3. 


1). 


5. 

6, 

7. 

8. 

9. 

10. 

11. 

12. 

13- 

14. 


Purpose:  Assemble  a  small  symmetric  matrix  into  a  larger 

symmetric  matrix. 


Equations  and  Procedures: 


Call  Small  symmetric  matrix  [CURL], 

Call  Large  symmetric  matrix  [A]  which  is  partitioned  as  follows 


[A]  = 


0  VV 


0  ww 


symmetric  so 
only  bottom 
half  shown. 


Symmetric  Matrix  [CURL]  is  assembled  into  UU,  VV  and  WW  parts 


Input  Arguments: 

NR  -  Number  of  rows  to  be  assembled 

IC,IR  -  Starting  column  and  row  of  the  assembled  partition 
i.e. ,  1,1  for  UU;  2,2  for  W;  and  3,3  for  WW 
[CURL]-  Small  symmetric  matrix 

Output  Arguments: 

[A]  -  Large  assembled  symmetric  matrix 

Error  Returns :  None 

Calling  Sequence: 

Call  PASSYM  ( NR , I C , IR , C URL , A } 

Input  Tapes :  None 

Output  Tapes:  None 

Scratch  Tapes:  None 
Storage  Required:  CURL(l),  A ( 1 ) 

Subroutine  User:  MASS20 

Subroutine  Required:  None 

Remarks :  None 
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Subroutine  Name: 


PLUG 2 3 


Purpose:  Form  the  stiffness  and  stress  matrices  for  a 

symmetric  shear  web. 


Equations  and  Procedures: 


A.  Clear  element  matrices. 

B.  Compute  length  of  panel  and  form  direction  cosines 
of  element  into  [TR]. 

C.  If  KK  i  0,  form  the  local  stiffness  matrix  as 


[Kr]  =  ACX 


where 


1  60(11Z^  +  38Z1Z2  +  11Z2) 

A  =  (Z1+Z2)(Z^+8Z1Z2+Z2) 

Z1 

D.  Form  global  stiffness  matrix 
[AK]  =  [TR]T[Kr][TR3 

E.  If  K3  /  0, 

(a)  Form  global  stress  matrix  [S] 

(b)  Form  stress  matrix  into  local  system  [SEL]  =  [S]  [TR]. 
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4.  Input  Arguments: 

IPL  -  Element  type  -•  23 

NNO  -  Number  of  grid  points  defining  element  =  2 
X,Y,Z  -  Coordinates  of  element 

TEL, PEL  -  Temperature  and  pressure  arrays  -  not  used 
NORD  -  Order  of  stiffness  matrix  =  6 
NODES  -  Grid  points  of  elements 

KK,KF,KS,KTS,KM  -  controls  on  stiffness,  thermal  load, 

stress,  thermal  stress  d  mass  calculations 
EPSIO,SO-  Initial  stresses  and  strains-not  used 
MAT  -  Material  properties  array 

EXTRA  -  Internal  data  containing  thicknesses  of  web 
5*  Output  Arguments: 

NOINK  -  Number  of  elements  in  stiffness  matrices 
AKjSEL  -  Stiffness  and  stress  matrices 
FT,S1GEL-  Thermal  load  and  stress  set  =  0.0 
AMASS  -  Mass  matrix  -  set  =  0.0 

NRSEL,NSEL  -  Number  of  rows  and  number  of  elements  in 
stress  matrix 

NMASS  -  Number  of  terms  in  null  mass  matrix 

6.  Error  Returns: 

If  length  *  0  or  neg  -  error 
If  Z^  or  Z2  =  0  or  neg  -  error 

7.  Calling  Sequence: 

Call  PLUG 2 3  (IPL, NNO, X,Y,Z, TEL, PEL, ZSEL, IP, NORD, NERR, NOINK, 

AK , AN , FT , SEL , SIGEL , AMASS , DAMPV , DAMPS , NRSEL , INO , 

NODES , NMASS , NDMPV, NDMPS , NSEL , KK , KF, KS , KTS , KM , 

KDS, KDV, KN , IUSEL, EPSIO, SO, MAT, EXTRA ,GPAXEL, 

NDIR , NDEG , ICONT) 


8. 

Input  Tapes: 

None 

9. 

Output  Tapes: 

None 

10. 

Scratch  Tapes: 

None 

11. 

Storage  Required 

• 

X(l),  Y(l) ,  Z(l),  PEL(r-,2),  TEL  (12, 2) ,  AK(1),  FT(1),  SEL(l), 
SIGEL(l),  AMASS(l),  NOD.  3(1),  EPSIO(l),  SO(l),  MAT ( 1 ) , 

EXTRA ( 1 ) ,  TR(4,6),  AKR(10),  S(4) 

12.  Subroutine  Used:  ELPLUG 

13.  Subroutines  Required:  ELTEST,  BCB ,  SYMPRT,  MPRD,  TXOUT 

111.  Remarks:  None 
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1.  Subroutine  Name:  PLUG  25 

2.  Purpose;  To  form  the  element  matrices  for  a  triangular 
cross-section  ring  element  with  applications  toward  the 
analysis  of  thick  walled  and  solid  axisymmetric  structures  of 
finite  length.  They  may  be  used  to  idealise  any  axisymmetric 
structure  by  taking  into  account: 

(1)  arbitrary  axial  variation  in  geometry 

(2)  axial  variation  in  orientation  of  material  axes  of 
orthotropy 

(3)  Radial  and  axial  variations  in  material  properties 
C1?)  any  asymmetric  loading  system  including  pressure  and 

temperature 

(5)  degradation  of  material  properties  due  to  temperature 


The  complete  finite  element  representation,  consists  of 
the  algebraic  expressions  for  the  following  matrices: 

(1)  stiffness 

(2)  stress 

(3)  mass 

(4)  thermal  load 
Ko)  pressure  load 

3.  Equations  and  Procedures:  The  development  of  the  complete 

element  representation  arises  from  the  Lagrange  Equation  which 
is : 


where 


i/  h 

qY  “  Y  generalized  velocity  coordinate 

A.  t. 

The  element  generalized  displacements  ytn  can  be  expressed 
in  fourier  series  form. 


Q.m 


The  following  procedure  is  included: 

(a)  call  subroutine  eltest  to  varify  the  input  control 
values 

(b)  call  subroutine  HRAICS  to  form  the  coordinate  trans¬ 
formation  matrix  and  area  matrix 

(c)  call  subroutine  HRAIES  to  form  the  material  properties 
matrices 

(d)  call  subroutine  HRAIKS  to  compute  the  element  stiffness 
matrix 

(e)  call  subroutine  HRAISS  to  form  the  element  stresses  matrix 


(f)  call  subroutine  HLOGEN  to  form  the  pressure  load  matrix 

(g)  call  subroutine  HTHGEN  to  form  the  thermal  load  matrix 


Input  Arguments 


IPL  -  internal  element  identification  number  (25) 

NNO  -  number  of  element  defining  points  (4) 

XC  -  coordinates  of  element  defining  points 

YC  -  coordinates  of  element  defining  points 

TEL  -  used  by  elplug 

PEL  -  used  by  elplug 

QSEL  -  used  by  elplug 

FP  -  used  by  elplug 

NORD  -  order  of  element  stiffness  matrix 
NERR  -  error  -return 

NOINK  -  number  of  clement  in  lower  half  of  stiffness  matrix 
AKEL  -  stiffness  matrix 
ANEL  -  used  by  elplug 

FTEL  -  pressure  load  +  thermal  load  matrix 

STRESS  -  element  stress  matrix 

SZALEL  -  element  thermal  stress  matrix 

AMASS  -  mass  matrix 

DAMPV  -  used  by  elplug 

DAMPS  -  used  by  elplug 

NRSEL  -  number  element  in  stress  matrix 

INO  -  used  by  elplug 

NODES  -  node  point  numbers 

NMASS  -  number  element  in  mass  matrix 

NDMPV  -  used  by  elplug 

NDMPS  -  used  by  elplug 

NSEL  -  number  of  elements  in  stress  matrix 
KK  -  element  stiffness  matrix  control  variable 
KF  -  used  by  elplug 

KS  -  element  stress  matrix  control  variable 

KTS  -  used  by  elplug 

KM  -  used  by  elplug 

FN  -  used  by  elplug 

KVM  -  used  by  elplug 

KN  -  used  by  elplug 

IUSEL  -  used  by  elplug 


EPSIO  -  used  by  elplug 
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SO  -  used  by  elplug 

MAT  -  input  temperature  interpolated  material  properties 
EXTRA  -  used  by  elplug 
GPAXEL  -  used  by  elplug 

NDIR  -  number  of  directions  of  element  defining  points  (3) 
NDEG  -  number  of  solution  degrees  of  freedom 
ICONT  -  not  used 

AJ  -  harmonic  number  for  pressure  load 
PR  -  harmonic  coefficient  for  pressure  load  in  radial 
direction 

PZ  -  harmonic  coefficient  for  pressure  load  in  axial 
direction 

JT  -  harmonic  number  for  thermal  load 
PRT  -  harmonic  coefficient  for  thermal  load  in  radial 
direction 

P7T  -  harmonic  coefficient  for  thermal  load  in  axial 
direction 

IIRT  -  pressure  and  thermal  3 cad  matrix  generated  control 
variable 

5-  Output  Arguments: 

NERR  -  error  indicator 

AKEL  -  element  stiffness  matrix 

FTEL  >  element  thermal  and  pressure  load  matrix 

STRESS  -  element  stress  matrix 

SZALEL  -  element  thermal  stress 

6 .  Error  Returns : 

If  not  error,  then  NERR  is  set  to  zero 

7 .  Calling  Sequence: 

( I PL , NHO , XC , YC , ZC , TEL , PEL , OSEL , IP , NORD . NERR , NOINK , AKEL , ANEL , 
FTEL , STRESS , SZALEL , AMASS , DAMPS , NRSEL , INO , NODES , NMASS , NDMPV , 

NS EL , KK , KF , KS , KTS , KM , FN , KVM , KN , IUSEL , EPSIO , SO , MAT , EXTRA , GPAXEL , 
NDIR , NDEG , ICONT , A J , PR, PZ , JT, PRT . PZT , IIRT ) 

8 .  Input  Tapes;  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Calling  Subroutine:  Elplug 

12.  Subroutines  Called: 

ELTEST , HRAICS , HRAIES , HRAIKS , HRAISS , HLOGEN , HTHGEN ,  and  HMASSG 
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1.  Subroutine  Name:  HR.AICS 


2.  Purpose;  To  generate  coordinate  transformation  matrix  and 
area  integrals  table  for  asymmetric  triangular  cross  section 
ring  element. 

3-  Equations  and  Procedures:  The  coordinate  matrix  [GAMABV] 

is  formed  by  algebraic  assignment.  The  area  integrals  table, 
DELINT,  is  formed  by  algebraic  methods  using  the  function 
subroutine  AI. 
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1.  Subroutine  Name:  HRAIKS 

2.  Purpose :  Compute  stiffness  matrix  for  asymmetric  triangular 
cross  section  ring  element. 

3-  Equations  and  Procedures :  This  subroutine  uses  harmoni-  number 
JA,  elastic  matrix  E,  and  area  integral  table  to  form  intermediate 
matrix  ACURL.  This  matrix  is  then  multiplied  with  the  coordinate 
transformation  matrix  GAMABQ  to  form  the  final  stiffness  matrix 
AKEL. 

4.  Input  Arguments: 

GAMABQ:  coordinate  transformation  matrix 
E  :  material  constant  matrix 
BELINT:  area  integral  table 
WIPR  :  print  control  variable 
JA  :  harmonic  number 

5-  Output  Arguments: 

AKEL  :  final  stiffness  matrix 

6.  Error  Returns:  None 

7 .  Calling  Sequence: 

( GAMABQ , E , DELINT , A KEL , WI PR , J A ) 

8.  Input  Tapes:  Lone 

5.  Output  Tapes :  None 

10 .  Scratch  Tapes:  None 

11.  Subroutine  User:  Plug  25 

12.  Subroutine  Required:  TPRD,MPRD 
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1.  Subroutine  Marne:  HRAISS 

2.  Purpose:  To  generate  the  stress  matrix  for  asymmetric  triangular 
cross  section  ■>  ing  element. 

3*  Equations  and  Procedures: 

For  a  given  harmonic  number  and  element  grids  point  constant, 
an  intermediate  matrix  WJ  is  formed.  This  matrix  is  then 
multiplied  w*t’.i  the  coordinate  transformation  matrix  GAMABQ 
and  material  constants  matrix  to  form  the  final  matrix  STRXP. 

*1 .  Input  Arguments: 

X,Z:  coordinates  of  node  points 

GAMABQ:  coordinate  matrix 

E:  material  constants  matrix 

WIPR:  print  control 

JA:  harmonic  number 

5-  Output  Arguments: 

STRXP:  final  stress  matrix 

6.  Error  Returns:  None 

7 •  Calling  Sequence; 

( X , Z , JAMABQ , E , STRXP , WIPR , GAM , JA , EM ) 

8.  Input  Tapes :  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  User:  Plug  25 

12.  Subroutine  Required:  MPRD 
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1.  Subroutine  Name:  HRAIES 

2.  Purpose:  To  generate  th?  transformed  matrix  of  elastic  -constant 
for  asymmetric  triangular  cross  section  ring  element. 

3-  Equations  and  Procedures: 

a)  Generate  elastic  constants 

b)  Generates  the  elastic  transformation  matrix. 

4 .  Input  Arguments: 

ER , ETHETA , EZ :  moduli  of  elasticity  (Young's) 

VROSVOZ,VZR:  polssons  ratio 
GRZ:  modulus  of  rigidity 

GAM:  angle  between  material  axes  and  element  axes 

5.  Output  Arguments: 

E:  transformed  elastic  constant  matrix 

6.  Error  Returns :  None 

7.  Calling  Sequence: 

( ER ,  ETHETA ,  EZ ,  VRO , VOZ , VZR ,  GRZ ,  GAM ,  TEO ,  EM ,  E ,  EL ,  V/IPR ,  GRO ,  GOR ) 

8 .  Input  Tapes:  None 

9 .  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

Subroutine  User:  Plug  25 


11. 


wv*,. 


PWWPPUKWIJ,.  I  ■  f 


1.  Subroutine  Name:  HL06EN 

2.  Purpose:  To  generate  pressure  load  for  asymmetric  triangular 
cross  section  ring  element. 

3.  Equations  and  Procedures:  Pressure  load  is  function  of  harmonic 
number,  harmonic  coefficients,  and  node  point  number. 

4 .  Input  Arguments: 

X,Z:  coordinates  of  node  points 

GAMABQ:  coordinate  matrix 

JA:  harmonic  number 

PR:  harmonic  coeffjcient  for  radial  direction 

PZ:  harmonic  coefficient  for  axial  direction 

WIPR:  print  control 

5-  Output  Arguments : 

FTXP:  final  pressure  load  matrix 

6.  Error  Returns:  None 

7 •  Calling  Sequence: 

(X,Z, GAMABQ, FTXP, WIPR, JA, PR, PZ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11 .  Subroutine  User:  Plug  25 
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1.  Subroutinfe  Name:  HMASSG 

2.  Purpose:  To  generate  MASS  matrix  for  asymmetric  triangular 
cross  section  ring  element. 

3-  Equations  and  Procedures: 

For  a  given  harmonic  number,  density  constant  and  element  area 
vector,  an  intermediate  matrix  BMASS  is  formed.  This  matrix 
is  then  multiplied  with  the  coordinate  transformation  matrix 
GAMABQ  to  form  the  final  mass  matrix  AMASS. 

Input  Arguments: 

AMASS:  mass  matrix 
GAMABQ:  coordinate  matrix 
DENS:  density  constant 

DELINT:  area  vector 
JA:  harmonic  number 

WIPR:  print  control 

5.  Output  Arguments: 

AMASS:  final  mass  matrix 

6.  Error  Returns:  None 

7 •  Calling  Sequence: 

( AMASS , DENS , GAMABQ , DELINT , J A , WIPR ) 

8.  Input  Tapes:  None 

9.  Output  Tapes :  None 

10.  Scratch  Tapes:  Hone 

11.  Subroutine  User:  Plug  25 

12.  Subroutine  Required:  TPRD,MPRD 
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Subroutine  Name:  HTHGEN 


2.  Purpose:  To  generate  thermal  load  and  thermal  stress  matrix 
for  asymmetric  triangular  cross  section  ring  element. 

3*  Equations  and  Procedures: 

a.  For  a  given  harmonic  number  AJT,  harmonic  coefficient  pRT, 
thermal  material  coefficients  and  area  table  integral, 

an  intermediate  matrix  DTT  is  formed.  This  matrix  is  then 
multiplied  with  coordinate  transformation  matrix  GAMABQ 
to  form  the  thermal  load  matrix. 

b.  Thermal  stress  is  a  function  of  the  material  expansion 
coefficients  and  the  material  constants. 

>i .  Input  Arguments: 

GAMABQ:  coordinate  matrix 
E  :  material  constants  matrix 

DELINT:  area  integrals  table 

ALFRR , ALFZZ , ALFOO :  material  expansion  coefficient 

AJT  :  harmonic  number 

PRT-  :  harmonic  coefficient 

WIPR  :  print  control  variable 

5-  Output  Arguments: 

FTJ  :  contains  thermal  load  element 
SZALEL:  contains  element  thermal  stress  matrix 

6.  Error  Returns:  None 

7 •  Calling  Sequence: 

( GAMABQ , E , DELINT , FTJ , ALFRR , ALFZZ , ALFOO , A JT , PRT , PZT , WI PR , SZALEL ) 
8.  Input  Tapes:  None 
9*  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Subroutine  User:  Plug  25 

12.  Subroutine  Required:  TPRD 
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Subroutine  Name: 


PLUG26 


2.  Purpose:  To  process  the  required  input  and  control  the 

generation  of  membrane  and  flexure  stiffness,  mass,  applied 
load,  thermal  stress  and  stress  matrices  for  the  high 
aspect  ratio  quadrilateral  element. 

Equations  and  Procedures: 

A.  Initialize  constants. 

B.  Process  coordinate  data  and  form  transformation  matrices 
for  different  coordinate  systems  used  in  element. 

C.  Form:  Material  properties  matrix  in  EM 

Strain  transformation  matrix  in  TES 
Stress  transformation  matrix  in  TESS 
Displacement  transformation  matrix  in  TW 

D.  Compute  [EG]  =  [TES]T[EM] [TES] 

E.  If  print  option  equals  -1,  call  PIPRTA  to  print  processed 
input  data. 

F.  Initialize  thermal  load,  pressure  load,  thermal  stress, 
stress  and  mass  matrices  to  zero. 

Membrane  computations  are  performed  as  follows: 

G.  Store  x  and  y  coordinates  in  geometric  system  into  xx 
and  yy  arrays. 

H.  Call  GENSM  to  calculate  the  values  of  the  mode  shape 
and  derivative  functions  H,  HZ,  HV  for  the  NR  and  NS 
sample  points. 

I.  Call  CK26  to  compute  the  membrane  stiffness  matrix  and 
transformation  matrix  TGRM. 

J.  If  requested,  call  CMMASS  to  compute  membrane  mass  matrix 
in  geometric  system,  CMM. 

Call  BCB  to  form  [AMASS]  =  [TGRM]T[Cmm][TGRM]  in 
system  coordinates. 

K.  If  requested,  call  STRS26  to  compute  membrane  stress 
matrix. 

I.  If  requested,  call  FT26  to  compute  membrane  thermal 
load  column. 
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M.  If  requested,  call  SZAL26  to  compute  membrane  thermal 
stress  column. 

N.  Change  temperature  multiplier  on  thermal  stress. 

Flexural  computations  are  then  performed  in  the  following 

manner: 

O.  Call  CK22  to  add  the  flexural  contributions  to  the 
stiffness  matrix  [K21S]. 

P.  Apply  transformation  to  global  system  by  performing 
[TFM]  =  [TGAMB][TOGB][TGRB] . 

Q.  If  stress  and/or  force  matrices  are  requested  then 

(a)  If  input  pressure  not  equal  to  0,  call  CFP  to 
formulate  the  pressure  matrix. 

(b)  The  flexural  contributions  tc  the  stress  matrix 
are  formulated  by  calling  CSTF. 

(c)  If  flexural  input  temperature  not  equal  to  zero, 
calls  CFFTS  to  formulate  the  thermal  force  and 
stress  matrices. 

R.  If  mass  is  requested,  then 

(a)  Call  CFMASS  to  form  the  membrane  mass  matrix  in 
local  system  [CMF]. 

(b)  The  mass  matrix  is  transformed  to  global  system 
as  [AMASS]  =  [TGFS]T[CMF][TGFS] . 

S.  Again,  if  the  print  option  is  -1,  intermediate  element 
computation  printout  is  obtained  from  PRT1. 


Input  Arguments: 

IPL  -  Plug  number 

NNO  -  Number  of  nodes  (8) 

XC,YC,ZC-  Coordinates  of  element  node  points 
TEL  -  Temperature  array  of  element  node  points 

PEL  -  Pressures  at  element  node  points 

NN  -  Number  of  nodes 

NL  ••  Node  point  numbers 

KK,KN  -  Control  for  computation  of  matrices  (see  remarks) 

GPAXEL  -  Grid  point  axes  transformations 

MAT  -  Array  eonraining  material  properties 

EXTRA  -  Array  containing  geometric  properties 
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5.  Output  Arguments: 

K21S  -  Stiffness  matrix 

FTEL  -  Element  force  matrix 

S  -  Stress  matrix 

SZALEL  -  Thermal  stress  matrix 

AMASS  -  Mass  matrix  for  dynamic  analysis 

6.  Error  Returns: 

a.  Standard  error  returns  by  ELPLUG  (NERR) 

b.  Sina  =  0  indicates  coordinate  input  data  error 

7.  Calling  Sequence: 

Call  PL  JG26 ( IPL,  NNO,  XC,  YC;  ZC,  TEL,  PEL,  QS,  IP,  NORD, 

NERR,  NOINK,  K21S,  AN1,  FTEL,  S,  SZALEL,  AMASS,  DAMPV, 

DAMPS,  NRSEL,  NN,  NL,  NMASS,  NDMPV,  NDMPS ,  NSEL,  KK,  KF, 

K8,  KTS,  KM,  KDS,  KDV,  KN,  IUSEL,  EPSLON,  SIGZER,  MAT,  EXTRA, 
GPAXEL,  NDIR,  NDEG,  ICONT) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes;  None 

11.  Storage  Required:  Total  storage  required  is  108624-LO/2A70]Lg  bytes 


12.  Subroutine  User:  ELPLUG 

13.  Subroutines  Required: 


ELTEST 

PIPRTA 

STRS26 

NEWFT 

GENSM 

FT26 

CDELPQ 

PRT1 

SZAL26 

MINV 

CK22 

BC3 

CFP 

CK26 

CSTF 

MABC 

CFFTS 

CMMASS 

CFMASS 
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14.  Remarks: 

The  following  is  a  list  of  control  indicators  for  PLUG26. 
For  all  indicators  shown  a  value  of  one  will  cause  the 
operation  to  be  performed  and  a  value  of  zero  will  cause 
the  operation  to  be  skipped. 

LT1  -  compute  membrane  contributions 

LT2  -  compute  flexural  contributions 

KK  -  compute  element  stiffness  matrix 

KF  -  compute  element  force  matrix 

(thermal  and/or  pressure) 

K8  -  compute  element  stress  matrix 

KTS  -  compute  element  thermal  stress  matrix 

KM  -  compute  element  mass  matrix 

KDS  -  not  used 

KDV  -  not  used 

KM  -  compute  element  incremental  stiffness  matrix. 
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Subroutine  Name: 


GENSM 


Purpose:  Evaluate  the  membrane  displacement  function, 

transformation  matrix  and  the  two  derivative  displacement 
function  transformation  for  all  sample  points  in  the  high 
aspect  ratio  quadrilateral  thin  shell  element.  Also 
evaluate  weights  used  for  Gaussian  product  formula. 

Equations  and  Procedures: 

Loop  cn  the  number  of  sample  points  in  the  product  quadrature 
formula  and  calculate  the  values  of  H,  HV  and  HZ  for  each 
of  the  eight  assumed  displacement  degrees  of  freedom.  If 
requested,  print  values  of  H,  HV,  and  HZ  and  W. 

H  represents  displacement  transformation  function. 

HZ  represents  derivative  displacement  §—[H] 

o  n 

a 

HU  represents  derivative  displacement  |^[H] 

Input  Arguments: 

NR  -  Number  of  sample  points  in  'x-like'  y  direction 

NS  -  Number  of  sample  points  in  'y~like'  u  direction 

IPRINT  -  Print  control 

Output  Arguments: 

H  -  Displacement  function  transformation  matrix  for 

NR*NS  sample  points 

HZ  -  Derivative  displacement  function  transformation 

matrix  for  NR*NS  sample  points 

HV  -  Derivative  displacement  function  transformation 

matrix  for  NR*NS  sample  poi/ts 

W  -  Weights  for  product  Gauss  NR#NS  quad  formuxa. 

Error  Returns:  None 

Calling  Sequence: 

Call  GENSM  (NR,NS,H,HZ,HV,W,IPRINT) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 
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11.  Storage  Required: 

2?881q  bytes 
8F8^g  bytes 

12.  Subroutine  User:  PLUG26 

13.  Subroutine  Required:  None 

111 .  Remarks: 

Vhe  displacement  function  and  the  derivative  displacement 
functions  as  defined  as: 


r- 

r  -i 

(l-u)[ilz-2u-l] 

z[iiu-2z-l] 

u  [iiz+2u-3] 

z[iiu+2z--3] 

u[Jlz-2u-l] 

(1-z )  (iiu-2z-l )  i 

(1-u)  [Jlz+2u-3] 

r*  »  HU  “S 

(1-z ) )4u+2y-3)  v 

Hu(l-u) 

ilz(-2u+l)  / 

u(-8z+t| ) 

ilz  (1-z ) 

-i)u(l-u) 

i<(l-z)(-2u+l) 

(l-u)(-8z+il) 

—if  z  ( 1— z ) 

s-  J 

mm) 

H 


z(l-u) (2z-2u-l ) 
zu(2z+2u-3) 

(1-z )u(  — 2z  +  2u-l ) 

(l-z)(l-u)(-2z-2u+l) 

iJzu(l-u) 

4zu ( 1-z ) 

fl(l-z)u(l-u) 

I!z(l-z)(l-u) 


J 
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1.  Subroutine  Name:  CK26 

2.  Purpose:  To  generate  tl:e  membrane  stiffness  matrix  for 

the  high  aspect  ratio  quadrilateral  finite  element. 

3.  Equations  and  Procedures: 

1.  Initialize  constants  and  arrays. 

2.  Call  CTGRM  to  evaluate  TGRM  matrix  which  maps  geometric 
into  system  reference  system. 

3.  Loop  on  the  number  of  points  in  the  product  quadrature 
formulas  the  following  calculations: 

A.  Call  TUD.7AC  to  evaluate  the  TU  and  D  matrices  and 
the  Jacobian  for  the  sample  point  at  hand. 

B.  Call  BCB  to  form  the  product 

[EO]  =  t|  J|  [TU]T[EG][TU]  . 

C.  Call  BCB  to  form  the  product 

[K11G]  =  [K11G]  +  WiJ[D]T[EO][D]  . 

D.  If  full  print  was  requested,  print  TU,  D,  and  K11G 
matrices . 

.  Call  BCB  to  form  final  membrane  stiffness  matrix 

[ms]  =  [tgrm]t[kiig][tgrm] 

t .  Input  Arguments: 

NDIR  -  Number  of  degrees  of  freedom/grid  point. 

NDEG  -  Number  of  types  of  degrees  of  freedom 

ICONT  -  Indicator  for  grid  point  axis  transformation 

GPAXEL  -  Array  which  contains  grid  point  axis  transformation 
NNO  -  Number  of  grid  points 

NL  -  Array  used  to  store  element  grid  points 

EEZ  -  Eccentricity  coefficient 

AJ  -  Array  containing  1 x-like1  coefficients  of  8  grid  points 

BJ  -  Array  containing  'y-like'  coefficients  of  8  grid  points 

TPRIME  -  Transformation  from  geometric  to  reference  degrees 
of  freedom 

T  -  Membrane  thickness 

LT1  -  Indicator  of  membrane  thickness 

EG  -  Material  properties  matrix  in  geometric  system 

K11G  -  Array  used  to  accumulate  stiffness  matrix 

TU  -  Displacement  function  transformation 

EO  -  Matrix  used  for  intermediate  products 

IPS  -  Matrix  used  for  grid  point  axis  transformation 

HZ  -  Matrix  which  contains  displacement  function  derivatives 

HU  -  Matrix  which  contains  displacement  function  derivatives 

D  -  Matrix  which  contains  displacement  function  derivatives 
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NR  -  Number  of  quadrature  points  in  'x-like'  direction 

NS  -  Number  of  quadrature  points  In  'y-like'  direction 

V/  -  Array  containing  weights  for  product  quad  formulas 

IPRINT  -  Print  control. 

5-  Output  Arguments: 

K21S  -  Membrane  stiffness  matrix  in  system  cooxdinrtes 
TGRM  -  Transformation  from  geometric  to  system  coordinate 

6.  Error  Returns:  None 

7-  Calling  Sequence: 

Call  CK26  ( K21S , NDIR , NDEG , ICONT ,  GPAXEL, NNO , NL , SEZ , A J , BJ , 
TPRIME , T  ,  LT1 , EG , TGRM , K1 1G , TO , EO , TPS , HZ , HU , D , 

NR, NS jW, IPRINT) 

8.  Input  Tapes:  None 

9.  Outout  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  24581Q  bytes 

12.  Subroutine  User:  PLUG26 

13.  Subroutines  Required: 

CTGRM,  AXTRA2,  TUDJAC,  BCB 

ll».  Remarks:  None 
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1.  Subroutine  Name:  TUDJAC 

2.  Purpose:  To  calculate  displacement  function  derivative 

matrix,  TU  matrix,  and  Jacobian  of  TU  matrix  for  one  sample 
point  inside  the  quadrilateral. 

3.  Equations  and  Procedures: 


D  matrix  is  formed  from  HZ  and  HU  arrays. 


[TU] 


1.0 

RJAC 


If  print  requested,  print  XZ,  YU,  XU,  YZ,  RJAC. 
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Input  Arguments: 

AJ  -  'x-like'  coordinates  of  8  grid  points  in  element 

BJ  ~  'y-like*  coordinates  of  8  grid  points  in  element 

IPRINT  -  Print  control  if  IPRINT=1,  then  print 
HZ  -  Derivative  matrix  for  one  sample  point 

HU  -  Derivative  matrix  for  one  sample  point 

Output  Arguments: 

TU  -  Displacement  function  transformation 

D  -  Displacement  derivative  function  matrix 

RJAC  -  Jacobian  of  TU  matrix 


Error  Returns : 


Calling  Sequence: 


None 


Call  TUDJAC  ( AJ , BJ , HZ , HU, TU , D , RJ AC > IPRINT) 


Input  Tapes: 


None 


Ouptut  Tapes:  None 
Scratch  Tapes:  None 
Storage  Required: 


S7210  bytes 


12.  Subroutine  User:  CK26,  FT26 

13.  Subroutines  Required:  None 


1^.  Remarks: 


None 
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Subroutine  Name: 


FT2  6 

Purpose:  To  generate  membrane  thermal  load  vector  for 

high  aspect  ratio  Quadrilateral  element. 

Equations  and  Procedures: 

A.  Compute  temperature  of  element  for  all  eight  grid 
points. 

B.  If  all  temperatures  are  0.0,  set  thermal  load  vector 
to  0.0  and  return. 

C.  Compute  [AMI]  =  [EM][ALPHM]  by  calling  MSB. 

Compute  [AM2]  =  [TES]T[AM1]  by  calling  MATE. 

D.  If  print  is  requested,  print  all  matrices  calculated 
so  far. 

E.  Loop  on  the  number  of  points  in  the  product  quadrature 
formula: 

1.  Evaluate  [TU],[D]  and  Jacobian  oi>  [TU]  for  sample 
point . 

2.  Multiply  [D]  matrix  by  temperatures  at  each  grid 
point . 

3.  Calculate  [IT]  =  [TU]T[AM2]  by  calling  MATBS. 

4.  Accumulate  [FPB]  [ppb]  +  [D]T[IT]  by  calling  MATBS. 

F.  Evaluate  [FT]  =  [TGRM]T[FPB]  by  calling  MATB. 

Input  Arguments: 

EM  ~  Material  properties  matrix 

ALPHM  -  Coefficients  of  thermal  expansion 

TES  -  Strain  transformation  matrix 

TU  -  Displacement  function  transformation 

T  -  Membrane  plate  thickness 

FPB  -  Array  used  to  accumulate  intermediate  thermal  load 

TGRM  -  Transformation  from  geometric  to  reference  coordinates 

NR  -  Number  of  sample  points  in  ' x-like'  direction 

NS  -  Number  of  sample  poirts  in  'y-like*  direction 

HZ  -  Displacement  derivative  function 

HU  -  Displacement  derivative  function 

D  -  Displacement  derivative  function 

XX  -  x-coordinates  In  geometric  system 

YY  -  y-coordlnates  in  geometric  system 

W  -  Weights  for  product  Gauss  quadrature  formula 

TEL  -  Temperature  of  ^  corner  element  grid  points 

H  -  Displacement  function  transformation 

TZ  -  Initial  temperature  of  structure 

IPRINT  -  Print  control 

Output  Arguments: 

FT  -  Element  thermal  load  in  reference  coordinates 

TELE  -  Effective  temperature  for  eight  grid  points 
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6. 


Error  Returns: 


None 


7.  Calling  Sequence: 

Call  FT 2 6  ( EM , ALPHM , TES , TU , T , FT , FPB , TGRM , NR , NS , KZ . HU , D , 
XX , YY , W , TEL , H , TELE , TZ , IPRINT ) 

8.  Input  Tapts:  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required: 

28^61q  bytes 
B281g  bytes 

12.  Subroutine  User:  PLUG26 

13.  Subroutines  Required: 

MSB,  MATB,  TUDJAC ,  MATBS 

14.  Remarks:  None 
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1.  Subroutine  Name:  SZAL26 

2.  Purpose:  To  generate  thermal  stress  matrix  for  high 

aspect  ratio  quadrilateral  element. 

3.  .Equations  and  Procedures: 

A.  Form  [AMI]  =  [EM][ALPHM]  by  calling  MSB. 

B.  Form  [AM2]  =  DELTM*T  [TES] "[AMI]  by  calling  MATBS. 

C.  Form  [SZLM]  =  [TESS][AM2]  by  calling  MAB. 

D.  Define  elements  of  [SZLM]  as  the  first  three  elements 
in  each  row  of  [SZALEL]. 

E.  If  requested,  print  [TESS],  [AMI],  [AM2],  [SZLM]. 

.  Input  Arguments: 

E  -  Material  properties  matrix 

ALPHM  -  Coefficients  of  thermal  expansion 

T  -  Membrane  thickness 

DELTM  -  Membrane  temperature 

TESS  -  Stress  transformation 

TES  -  Strain  transformation 

IPRINT  -  Print  control 


5. 

Output  Arguments: 

SZALEL  -  Material  thermal  stress 

matrix 

6. 

Error  Returns :  None 

7. 

Calling  Sequence: 

CaU  SZAL26  v EM, ALPHM, T, DELTM, TES. 

S, SZALEL, TES, IPRINT) 

8. 

Input  Tapes:  None 

9. 

Output  Tapes:  None 

10. 

Scratch  Tapes:  None 

11. 

Storage  Required:  12^1Q  bytes 

;  kytes 

12. 

Subroutine  User:  PLUG26 

13. 

Subroutines  Required: 

MSB,  MAB,  MATBS 

m. 

Remarks:  None 
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Subroutine  Name: 


STRS26 


2.  Purpose:  To  evaluate  membrane  stress  matrix  for  5  stress 

point.  (4  corner  points  plus  centroid.) 

3*  Equations  and  Procedures: 

A.  Porn  [AMI]  =  [TESS]  [EG]  by  calling  MBS. 

B.  For  each  stress  point 

1.  Calculate  YU,  YZM,  XUM,  XZ  and  VJAC  =1.0/(XZ+YU-XUM+YZM) 

2.  Form  elements  in  D  matrix  [D]  =  [TU]  [D]  based 
on  equations  in  remarks  section. 

C.  Form  [AM2]  =  [AMI]  [D]  by  calling  MAB3 . 

D.  Form  [AM5]  »  [TGRM]  [ AM2]  by  calling  MAB. 

E.  Store  elements  of  AM5  as  the  first  3  elements  in  each 
row  of  S  matrix. 

F.  If  requested,  print  matrices. 

4.  Input  Arguments: 

EG  -  Material  .  operties  matrix  (geometric  system) 

TESS  -  Stress  transformation  matrix 

T  -  Membrane  thickness 

TGRM  -  Transformation  matrix  from  geometric  to  reference 
D  -  Array  used  in  intermediate  calculations 

AMI  -  Array  used  in  intermediate  calculations 

AM2  -  Array  used  in  intermediate  calculations 

AM5  -  Array  used  in  intermediate  calculations 

AJ  -  'x-like'  coordinates  of  eight  element  grid  points 

BJ  -  'y-like'  coordinates  of  eight  element  grid  points 

IPRINT  -  print  control 

5.  Output  Arguments: 

S  -  Element  stress  matrix 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  STRS26  ( EG , TESS , T , S , TGRM , D , AMI , AM2 , AMS , AJ , BJ , IPRINT) 

8.  Input  Tapes:  None 

9-  Output  Tapes:  None 

10.  Scratch  Tapes:  None 


8.907 


Storage  Required:  4080^  bytes  ;  FFB^g  bytes 

Subroutine  User:  PLUG26 

Subroutines  Required:  MBS,  MABS,  MAB 

Remarks : 

The  calculation  [TU]  [D]  is  required  in  the  expression  for  the 
stress  matrix.  Since  the  two  matrices  are  evaluated  at  the 
5  stress  points,  many  of  the  terms  for  HZ  and  HU  in  the  D 
matrix  drop  out.  Thus  we  can  write  the  expression  for  [TU]  [D] 
directly. 


DISPLACEMENT 

D.O.P. 

HZ 


STRESS  POINTS 


(1) 

(1,0) 


(2) 

(1,1) 


(3) 

(0,1) 


(H) 

(0,0) 


(5) 

(*5,  h) 


DISPLACEMENT 

D.O.F. 

HU 


STRESS 

POINTS 

(1) 

(1,0) 

(2) 

(1,1) 

(3) 

(0,1) 

(0,0) 

(5) 

(h>k) 

- - 
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1.  Subroutine  Name:  MBS 

2.  Purpose:  To  evaluate  the  matrix  product  B#S(SYM). 

3.  Equations  and  Procedures: 

B  is  of  order  (M,N)  and  dimensioned  (Ml,  Nl) 

S  is  (NxN)  symmetric  stored  in  lower  half  by  rows 
AN  (M,N)  is  the  product  B(M,N)  *  S(NrN) 

AN  must  have  row  dimension  M. 

A.  Input  Arguments: 

B  -  Rectangular  matrix  of  order  (M,N) 

S  -  Symmetric  matrix  of  order  (N,N) 

M  -  Number  of  rows  in  B  and  AN  matrices 

N  -  Number  of  rows  in  S  matrix 

Ml  -  Row  dimension  of  B  matrix 

Nl  -  Column  dimension  of  B  matrix 

5.  Output  Arguments: 

AN  -  Matrix  product  of  order  (M,N) 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  MBS  (B,S,AN,M, N,M1 ,N1 ) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  7701Q  bytes  ;  3°^i6  bytes 

12.  Subroutine  User:  STRS26 


Subroutines 

Required : 

None 

Remarks : 

None 
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1. 


Subroutine  Name: 


MAES 


2. 
3 . 


H. 


5- 

6. 

7. 

8. 
3  • 

10. 

11. 

12. 

13. 

1H. 


Purpose:  To  evaluate  the  matrix  product  A  *  B  *  AN. 

Equations  and  Procedures: 


AN 


nm 


*  BJm  +  1ASSI  *  « 

s 


Input  Arguments: 

A  -  Elements  of  [A]  matrix 

B  -  Elements  of  [3]  matrix 

N  -  Number  of  rows  in  [A]  matrix 

L  -  Number  of  columns/rows  in  [A]  [B]  matrix 

M  -  Number  of  columns  in  [B]  matrix 

N1,M1  -  Dimension  of  [A]  matrix 

N2,M2  -  Dimension  of  [B]  matrix 

IASSY  -  Assembly  control 

Output  Arguments: 

AN  -  The  matrix  product 

Error  Returns :  None 

Calling  Sequence: 

Call  MABS  ( A , B , AN , N , L , M j N1 , Ml , N2 , M2 , IASSY ) 

Input  Tapes:  None 

Output  Tapes:  None 

Scratch  Tapes:  None 
Storage  Required: 

Total  storage  required  is  798-jq  ;  31E^g  bytes. 

Subroutine  User:  Used  by  many  subroutines  within  PLUG26. 

Subroutines  Required:  None 

Remarks: 


If  IASSY  *»  .1  AN  is  product  plus  previous  AN  values 
=0  AN  is  product  only. 
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1.  Subroutine  Name:  MATBS 

2.  Purpose:  Subroutine  to  evaluate  the  matrix  product  of 

A  transpose  and  B. 

3*  Equations  and  Procedures: 

AN  =  seal  >  AT  *  B  +  IASSY  *  AN 
nm  jr  en  em 

e 

T 

where  A  is  the  transpose  of  A 

en  ne 

4.  Input  Arguments: 

A  -  Elements  of  [A]  matrix 

B  -  Elements  of  [B]  matrix 

T 

N  -  Number  of  rows  in  [A]  matrix  (order) 

T 

L  -  Number  of  columns  in  [A]  matrix  (order) 

M  -  Number  of  columns  in  LB]  matrix  (order) 

N1,M1  -  Dimension  of  [A]  matrix 

N2,M2  -  Dimension  of  [B]  matrix 

SCAL  -  Scalar  which  multiplies  product 
IASSY  -  Assembly  control  (see  Remarks) 

5.  Output  Arguments: 

AN  -  Elements  of  matrix  product 

6.  Error  Returns:  None 

7.  Calling  Sequence: 

Call  MATBS  (A,B,AN,N,L,M,N1,M1  ,N2,  M2,  SCAL.,  IASSY) 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11..  Storage  Required: 

Total  storage  required  is  92810  bytes;  ^°l6 

12.  Subroutine  User:  Various  subroutines  in  PLUG26 

13.  Subroutines  Required:  None 

14.  Remarks: 

If  IASSY  =1,  AN  =  previous  AN  values  plus  new  pdt. 

=  0,  AN  -  product  only 

8. 511 


APPENDIX  IX 

DIRECT  MACHINE  CONTROL  IMPLEMENTATION  DOCUMENT 


This  documentation  Is  primarily  intended  for  the 
programmer  analyst  or  systems  analyst  responsible  for  the 
initial  implementing  and  subsequent  maintenance  of  the 
system. 

There  are  five  sections  in  this  document.  Special 
program  considerations  are  presented  in  Section  I  (Reference 
2).  Included  in  this  section  is  a  description  of  internal 
data  storage,  external  or  peripheral  data  storage,  and 
programming  specifications  followed.  Section  II  deals  with 
the  operational  considerations  of  the  program.  Included  in 
this  section  is  a  discussion  of  the  procedure  to  be  followed 
in  an  initial  implementation  of  the  program  at  an  installation. 
Data  set  assignments  and  storage  limitations  are  discussed, 
and  some  special  control  cards  are  described  (Reference  2). 
Section  III  describes  how  new  agendum  level  abstraction 
instructions  may  be  added  to  the  MAGIC  system.  Section  IV 
contains  a  catalogued  procedure  used  for  initial  implementation 
of  the  MAGIC  Svstem.  Section  V  contains  a  preprinted  form 
to  be  used  ir.  reporting  any  problems  with  the  implementation 
or  running  of  the  MAGIC  program. 
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SECTION  I 


SPECIAL  PROGRAMMING  CONSIDERATIONS 


A.  INTERNAL  DATA  STORAGE 
1.  Common  Storage 

There  are  only  four  variables  which  remain  in  blank 
common  at  all  times.  These  four  variables  are  initialized 
when  the  machine  resources  module  is  compiled.  The  four 
variables  are  stored  in  the  first  four  words  of  blank  common 
and  are  defined  as  follows:  (1)  the  first  word  contains  an 
integer  which  is  the  logical  number  of  the  system  input  data 
set,  (2)  the  second  word  contains  an  integer  which  is  the 
logical  number  of  the  system  output  data  set,  (3)  the  third 
word  contains  an  integer  which  is  the  order  of  the  largest 
matrix  permitted  in  the  system,  (4)  the  fourth  word  contains 
the  number  of  words  remaining  in  blank  common  (i.e.,  from  word 
five  to  the  end).  The  remaining  portion  of  blank  common, 
whose  length  is  specified  in  word  number  four,  is  used  by  all 
FORMAT  II  routines  as  working  storage. 


2.  Storage  of  Alphameric  Information 

All  alphameric  information  (e.g.,  matrix  names)  is 
stored  one  character  per  word.  Consistency  is  retained  by 
reading  all  alphameric  data  into  storage  with  an  "Al"  format 
and  by  compiling  all  alphameric  data  into  storage  using  DATA 
statements  with  an  "1H"  format. 


3-  Matrix  Names 

The  names  of  all  matrices  processed  by  the  program 
are  one  (1)  to  six  (6)  characters  in  length.  The  first  chara*.- 
of  a  matrix  name  musu  be  alphabetic.  The  matrix  names  are 
stored  one  enaracter  per  word.  A  seventh  word  is  addended  to 
the  six  words  which  contain  the  characters  constituting  the 
matrix  name.  Th3s  last  word  contains  a  plus  (+)  or  minus  (-) 
integer  one  (1).  The  sign  of  the  seventh  word  indicates  the 
sign  of  the  matrix,  (i.e.,  plus  or  minus).  (Note :  The 
characters  in  words  two  (2)  through  six  (6)  may  be  blank.) 
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4.  Data  Set  Names 


The  names  of  master  input  and  master  output  data 
sets  follow  the  same  rules  as  matrix  names,  with  one  exception. 
The  seventh  word  of  the  data  set  nare  does  not  necessarily 
contain  an  integer  one  (1).  Instead  it  contains  an  integer 
which  is  specified  by  the  user  of  the  program  when  the  particular 
data  set  was  created.  If  the  data  set  is  neither  a  master  input 
data  set  nor  a  master  output  data  set,  the  data  set  name  consists 
of  six  (6)  blank  characters  followed  by  an  integer  zero  (0). 


5-  Compression  Scheme 

The  columns  of  all  matrices  are  stored  in  one  of  two 
formats,  full  or  compressed. 

If  the  number  of  zero  elements  in  the  column  is  grea'.er 
than  fifty  percent,  the  column  is  stored  in  compressed  format. 
When  a  column  is  compressed,  it  is  stored  as  follows: 

V 
I 

V 
1 


• 

V 

I 

The  V's  are  the  non-zero  values  in  the  column  and  are 
floating  point  numbers.  The  I's  are  the  row  numbers  of  each  of 
the  V's  and  are  stored  as  integers.  The  row  number  of  any  given 
value  is  denoted  by  the  integer  immediately  following  the  value 
in  storage. 

If  the  number  of  non-zero  elements  is  not  greater  than 
fifty  percent,  the  column  is  stored  in  full  format.  When  a 
column  is  full,  it  is  stored  .s  follows: 

V 

V 

V 


V 

The  V's  are  the  zero  and  non-zero  elements  of  the 
column  and  are  floating  point  numbers. 
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B.  DATA  SET  FORMATS 


1.  Data  Set  Header  Record 

The  first  logical  record  on  all  data  sets  which  are 
processed  by  the  program  is  called  a  data  set  header.  The 
data  set  header  is  ten  words  long.  The  first  word  contains 
an  integer  number  which  is  minus  ten  (-10).  This  word  indicates 
•;hat  the  record  is  a  data  set  header.  The  second  word  contains 
an  integer  zero  (0).  This  word  has  no  significance  in  a  data 
set  header.  The  third  word  contains  an  integer  seven  (T). 

This  word  indicates  the  number  of  words  remaining  in  the  logical 
record.  The  remaining  seven  words  contain  an  alphameric  data 
set  name  if  the  data  set  is  either  a  master  input  or  master 
output  data  set,  or  contain  seven  (7)  zeros  (0)  if  the  data 
set  is  not  a  master  input  or  master  output  data  set. 


2.  Data  Set  Trailer  Record 

The  last  logical  record  on  all  data  sets  which  are 
processed  by  the  program  is  called  a  data  set  trailer.  The 
data  set  tra.' ler  is  four  (4  )  words  long.  The  first  word 
contains  an  integer  which  is  minus  twenty  (-20).  This  word 
indicates  that  ine  record  is  a  data  set  trailer.  The  second 
word  contains  an  integer  zero  (0).  This  word  has  no  signi¬ 
ficance  in  a  data  set  trailer.  The  third  word  contains  an 
integer  one  (1).  This  word  indicates  the  number  of  words 
remaining  in  the  logical  record.  The  fourth  word  contains  an 
Integer  zero  (0).  This  word  has  no  significance  in  a  data 
set  trailer. 


3.  Matrix  Header  Record 

The  first  logical  record  in  all  matrices  which  reside 
on  data  acts  which  are  processed  by  the  program  is  called  a 
matrix  header.  The  matrix  header  is  twelve  (12)  words  long. 
The  first  word  contains  an  Integer  which  is  minus  one  (-1). 
This  word  indicates  that  the  record  is  a  matrix  header.  The 
second  word  contains  an  Integer  zero  (0).  This  word  has  no 
significance  in  a  matrix  header.  The  third  word  contains  an 
integer  nine  (9)«  This  word  indicates  the  number  of  words 
remaining  in  the  logical  record.  The  next  seven  (7)  words 
contain  the  characters  which  comprise  the  matrix  name.  The 
last  two  words  contain  integer  numbers  which  are  the  number 
of  rows  and  the  number  of  columns,  respectively,  in  the 
matrix. 
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4 .  Matrix  Trailer  Record 

The  last  record  in  all  matrices  which  reside  on  data 
sets  which  are  processed  by  the  program  is  called  a  matrix 
trailer.  The  matrix  trailer  is  four  (lJ)  words  long.  The  first 
word  contuins  an  integer  minus  two  (-2).  This  word  indicates 
that  the  record  is  a  matrix  trailer.  The  second  word  contains 
an  integer  zero  (0).  This  word  has  no  significance  in  a  matrix 
trailer.  The  third  word  contains  an  integer  one  (1).  This 
word  indicates  the  number  of  words  remaining  in  the  logical 
record.  The  fourth  word  contains  an  integer  zero  (0).  This 
word  has  no  significance  in  a  matrix  trailer. 


5.  Matrix  Column  Records 

The  logical  records  between  the  matrix  header  record 
and  the  matrix  trailer  record  contain  the  columns  of  the  matrl/, 
one  column  per  logical  record.  The  column  records  are  variable 
in  length.  The  length  depends  on  the  number  of  rows  in  the 
matrix  and  the  number  of  non-zero  elements  in  the  column.  The 
first  word  of  column  record  contains  an  integer  which  is  the 
column  number.  The  second  word  contains  an  integer  which  is 
either  zero  (0)  or  one  (1).  A  zero  (0)  indicates  that  the  column 
is  full.  A  one  (1)  indicates  that  the  column  is  compressed. 

The  third  word  contains  an  integer  which  indicates  the  number 
of  words  remaining  in  the  logical  record.  Words  four  (4)  to 
the  end  contain  the  matrix  column  elements  either  in  full  or 
compressed  form.  If  a  column  does  not  contain  any  non-zero 
elements,  a  corresponding  column  is  omitted  from  the  data  set. 


C .  PROGRAMMING  STANDARDS 

In  the  design  and  coding  of  the  MAGIC  II  system  every 
effort  was  made  to  Keep  the  system  machine  independent.  With 
this  consideration  in  mind,  the  following  rules  were  developed 
and  obeyed. 

a.  The  MAGIC  II  system  is  written  entirely  in  FORTRAN  IV. 

b.  No  advantage  was  taken  of  the  peculiarities  in  the 
FORTRAN  IV  language. 

c.  All  variables  are  implicitly  typed  with  the  exception 
of  logical  variables  which  cannot  be  implicitly 
typed. 
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d.  "EQUIVALENCE"  statements  were  used  only  when  they 
were  absolutely  necessary. 

e.  No  on-line  communication  with  the  computer  operator 
is  performed. 

f.  Blank  common  is  used  as  working  storage  by  all 
routines.  The  size  of  blank  common  is  compiled 
into  one  control  section  (MRES)  and  is  made  availabl 
to  all  routines  by  being  stored  in  the  fourth  word 
of  blank  common.  Thus  by  recompiling  only  one 
control  section  (MRES),  the  entire  system  is  able 

to  take  advantage  of  additional  core  storage  which 
may  have  been  made  available 

g.  All  references  to  FORTRAN  logical  data  sets  are 
variable.  The  numbers  of  all  the  FORTRAN  logical 
data  sets  available  to  the  MAGIC  II  system  are 
compiled  into  one  control  section  (MRES)  and  subse¬ 
quently  made  available  to  all  routines.  These  data 
set  numbers  may  be  changed  by  recompilation  of  one 
control  section  (MRES)  or  via  the  input  data. 

h.  All  alphameric  information  is  stored  one  character 
per  word,  thus  no  adcantage  of  word  size  was  taken. 

i.  No  advantage  cf  the  bit  configuration  of  any 
character  was  taken. 

j.  The  MAGIC  II  system  is  extremely  modular,  making 
additions  and  modifications  as  simple  as  possible. 

k.  In  general,  very  straight  forward  and  conservative 
coding  practices  were  followed. 
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SECTION  II 


OPERATIONAL  CONSIDERATIONS 


A.  MAGIC  II  DATA  SET  PHILOSOPHY 

The  MAGIC  II  system  is  designed  to  make  extensive  use 
of  the  input/output  configuration  of  a  given  installation. 

.'ince  the  philosophy  of  MAGIC  has  been  to  keep  the  system 
completely  machine  independent  all  references  to  input/output 
devices  is  in  terms  of  logical  data  sets.  The  MAGIC  II  data 
ze t  philosophy  is  described  in  the  following  pages.  The  main 
topics  covered  are  the  manner  in  which  an  installation's 
standard  FORTRAN  data  set  configuration  is  communicated  to 
the  MAGIC  II  system,  the  minimum  data  set  requirements  of 
the  MAGIC  II  system,  and  the  method  of  selection  of  data 
sets  for  use  as  MAGIC  II  system  utilities. 

A  logical  data  set  in  the  MAGIC  II  fystem  can  take  on 
one  to  four  MAGIC  system  functions.  The  data  may  be  a  master 
input  data  set;  that  is,  one  which  contains  matrices  which 
are  required  in  the  execution  of  the  user's  problem.  The 
data  set  may  be  a  master  output  data  set;  chat  is,  one  which 
is  to  contain  matrices  generated  by  the  user's  problem  and  which 
is  to  be  saved  at  the  end  of  the  problem  execution.  The  data 
set  may  be  an  input/output  utility  data  set;  that  is,  one 
which  may  be  used  by  the  MAGIC  II  system  during  both  pre¬ 
processing  and  execution  as  intermediate  storage.  Finally 
the  data  set  may  be  the  instruction  data  set.  The  only  function 
of  this  data  set  is  to  contain  the  executable  FORTRAN  instruction, 
as  generated  during  the  preprocessing  phase  of  a  given  run. 

This  instruction  data  set  is  subsequently  read  during  the 
execution  phase  of  the  same  run.  In  addition  to  the  four 
previously  mentioned  MAGIC  system  functions,  there  are  two 
logical  data  set  numbers  which  correspond  to  the  system  input 
unit  and  system  output  unit  of  the  operating  system  monitoring 
execution  of  the  MAGIC  II  system.  These  two  data  sets  are 
used  by  the  MAGIC  II  system  exclusively  for  reading  cards  on 
or  off-line  and  for  printing  on  or  off-line.  Note  that  this 
allows  batch  processing. 

There  are  two  ways  in  which  an  installation's  standard 
FORTRAN  logical  data  sets  are  made  available  to  the  MAGIC  II 
system.  One  of  the  two  ways  is  by  recompiling  subroutine 
MRES.  This  subroutine  must  have  compiled  into  it  the  logical 
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«lata  set  number  corresponding  to  the  system  input  unit  and 
the  laical  data  set  number  corresponding  to  the  system  output 
unit.  The  subroutine  may  have  compiled  into  it  information 
about  some  or  all  of  the  installation's  standard  FORTRAN 
logical  data  sets.  This  information  consists  of  the  five 
following  quantities  for  each  data  set:  (1)  the  logical  data 
set  number;  (2)  the  MAGK  II  system  function  of  the  data 
set;  (3)  the  device  with  which  the  data  set  is  associated, 

(e.g.,  tape);  (4)  the  logical  channel  to  which  the  device  is 
attached,  (e.g.,  A);  (5)  the  capacity  of  the  data  set  in  basj- 
machine  units,  (e.g.,  5000  words).  (A  capacity  of  zero  (0) 
indicates  infinite  capacity.)  The  second  way  the  installation's 
four  standard  FORTRAN  logical  data  sets  may  be  made  available 
to  the  MAGIC  II  system  is  by  the  use  of  the  "NEW"  option  on 
the  $MAGIC  card  and  a  SETUP  card  for  each  of  the  standard 
data  sets.  The  "NEW"  option  has  the  effect  of  zeroing  out 
all  the  data  set  information  which  has  been  compiled  into  th 
subroutine,  with  the  exception  of  the  logical  data  set  numb-':* 
of  the  system  input  unit  and  the  system  output  unit.  Each 
SETUP  card  has  the  effect  of  re-establishing  the  five  quantities 
which  are  associated  with  each  data  set. 

Once  the  installation's  standard  configuration  has  been 
compiled  into  the  subroutine  MRES,  temporary  modifications 
may  be  made  by  the  use  of  the  "CHANGE"  option  on  the  $MAGIC 
card  and  a  DELETE  card  or  UPDATE  card,  depending  on  the 
particular  modification  to  be  made.  The  "CHANGE"  option 
indicates  that  the  DELETE  or  UPDATE  cards  follow  the  $MA0IC 
card.  The  DELETE  card  has  the  effect  of  zeroing  out  all 
information  associated  with  the  specified  data  set.  The  UP¬ 
DATE  card  has  the  effect  of  changing  any  or  all  the  information 
associated  with  an  existing  data  set,  that  is  a  data  set 
whose  associated  information  has  been  compiled  into  subroutine 
MRES:  or  has  the  effect  of  making  an  additional  data  sets 
available  to  the  MAGIC  II  system  if  the  data  set  did  not 
exist,  that  is,  if  the  data  set  information  associated  with 
the  specified  data  set  has  not  been  compiled  into  subroutine 
MRES. 


Tnere  are  several  errors  which  will  result  from  improper 
specification  of  logical  data  set  information  in  the  MAGIC  II 
system.  The  most  serious  of  the  errors  are  those  which  the 
MAGIC  II  system,  by  virtue  of  its  machine  independence,  can¬ 
not  detect  and  from  which  it  cannot  recover.  These  errors 
are:  (1)  having  specified  an  invalid  logical  data  set  number 
for  either  the  system  input  unit  or  the  system  output  unit  in 
the  compiled  soubroutine  MRES;  (2)  having  specified  the 
number  of  a  logical  data  set  as  a  MAGIC  II  system  function 
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which  is  not  in  binary  mode  or  which  is  not  defined  as  one  of 
the  installation's  standard  FORTRAN  logical  data  sets.  These 
Incorrect  specifications  may  result  from  the  use  of  a  "SETUP" 
or  "UPDATE"  card,  or  improper  use  of  subroutine  MRES  during 
compilation.  There  are  other  errors  which  result  from  invalid 
specification  of  logical  data  set  information,  which  are 
internal  to  the  MAGIC  II  system  and  hence,  can  be  detected 
by  the  MAGIC  II  system.  These  errors  are:  (1)  specifying  a 
logical  data  set  as  a  MAGIC  II  system  function,  when  the 
-ista  set  is  tne  system  input  or  output  unit;  (2)  specifying 
duplicate  data  set  numbers  on  two  different  SETUP  cards;  (3) 
specifying  a  device  type  other  than  tape  or  disk  for  a  data 
set  whose  function  is  master  input  or  master  output;  (4)  not 
specifying  a  sufficient  number  of  data  sets  as  being  available 
to  the  MAGIC  II  system.  Item  number  ^  in  the  list  of  errors 
will  be  clarified  in  the  following  pages. 

The  MAGIC  II  system  requires  that  a  certain  number  of 
logical  data  sets  be  available  for  use  as  system  utilities 
during  the  preprocessing  phase  and  execution  phase.  The  function 
and  method  of  selection  of  all  required  utilities  is  described 
below.  The  first  data  set  selected  by  t:;e  preprocessor  is 
;he  data  set  which  is  to  contain  the  executable  Format 
instructions.  Since  this  data  set  is  a  MAGIC  II  system  func¬ 
tion,  it  may  have  been  established  at  the  time  all  the  system 
functions  were  established.  However,  if  no  data  set  available 
to  MAGIC  has  been  given  this  system  function,  the  preproces  .or 
selects  for  this  function  one  of  the  data  sets  that  has  the 
MAGIC  II  system  function  input/output  utility.  The  next  data 
set  selected  is  used  as  a  communication  medium  between  the  pre¬ 
processor  modules.  The  preprocessor  selects  a  data  set  which 
system  function  is  input/output  utility.  This  data  set  is 
set  outside  to  contain  any  matrices  which  may  be  card  input. 
During  the  allocation  phase  a  fourth  data  set  is  selected  for 
temporary  use  by  the  allocator.  This  data  set  is  also  selected 
from  the  MAGIC  II  input/output  utilities.  If  no  matrices 
have  been  card  input  it  is  possible  that  the  data  set  selected 
by  the  allocator  coincides  with  the  data  set  which  was  to 
contain  the  card  input  matrices.  In  general,  the  preprocessor 
can  function  with  a  minimum  of  three  (3)  data  sets  if  each 
one  has  the  MAGIC  II  system  function  of  input/output  utility. 

If  card  input  matrices  exist  in  the  user's  problem,  four  (4) 
MAGIC  II  input/output  utilities  must  exist. 

The  minimum  data  set  requirements  for  the  execution  phase 
are  determined  during  allocation.  The  user's  problem  is 
analyzed  and  the  required  number  of  master  input  and  master 
oatput  data  sets  is ‘determined.  Specific  data  sets  are  selected 
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from  those  whose  MAGIC  II  system  function  is  either  master 
input  or  master  output.  If  any  data  sets,  whose  system  function 
is  master  input  or  master  output,  have  not  been  selected  for 
the  user's  problem,  its  system  function  is  changed  from  master 
input  or  master  output  to  input/cutput  utility. 

Associated  with  each  valid  abstraction  instruction  is  an 
irithmetie  module  which  is  under  control  of  the  execution 
monitor.  Each  of  these  arithmetic  modules  requires  a  certain 
number  of  scratch  data  sets  in  addition  to  the  data  sets 
containing  the  matrices  which  are  input  to  the  instruction  or 
created  by  the  instruction.  As  a  result,  the  allocator  scans 
the  user's  abstraction  instructions  and  determines  the  number 
of  scratch  data  sets  required  by  each  associated  arithmetic 
module.  The  maximum  of  these  numbers  is  then  ascertained  and 
this  number  of  data  sets  is  set  aside  for  future  use  as  scratch 
data  sets.  These  data  sets  are  selected  from  the  data  sets 
whose  MAGIC  II  system  function  is  input/output  utility.  At 
this  point  the  matrices  occurring  in  the  user's  problem  are 
allocated  to  the  remaining  data  sets  whose  system  function  is 
input/output  utility. 

There  are  many  errors  which  will  occur  when  the  minimum 
requirements  of  the  MAGIC  II  system  are  not  met.  All  of  these 
errors  are  detectable  by  the  MAGIC  II  system.  When  one  occurs 
the  appropriate  error  message  is  written.  The  most  common 
error  which  occurs  is  not  having  enough  input/output  utilities 
available  to  the  preprocessor  at  the  time  of  the  selection  of 
an  intermediate  data  set.  When  this  condition  arises,  the  error 
message  which  Is  written  on  the  system  output  unit  indicates 
the  intermediate  data  set  which  the  preprocessor  has  been 
unable  to  select.  The  condition  can  be  corrected  by  specifying 
more  data  sets  with  the  MAGIC  II  system  function  of  input/out¬ 
put  utility.  An  error  condition  also  results  when  the  user's 
problem  requires  more  master  input  data  sets  than  exist  with 
the  MAGIC  II  system  function  of  master  input.  The  error 
occurs  also  for  an  insufficient  number  of  master  output  data 
sets . 


B.  STORAGE  LIMITATIONS 

The  MAG  IC  II  system  is  very  flexible  in  its  utilization 
of  working  storage,  in  that  all  subroutines  use  blank  common 
as  working  storage  and  in  that  the  allocation  of  blank  common 
storage  is  all  dynamic.  The  length  of  blank  common  is 
initialized  in  the  COMMON  statement  in  subroutine  MRES.  The 
size  of  blank  common  is  bounded  above  only  by  the  amount  of 
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core  storage  available  at  a  given  installation.  For  large 
matrix  problems  it  is  desirable  to  have  blank  common  as  large 
as  possible,  since  the  MAGIC  II  system  utilizes  all  of  the 
available  blank  commoh  storage.  The  lower  bound  of  the  size 
of  blank  common  is  determined  by  one  of  two  things:  (1)  the  size 
of  a  particular  MAGIC  II  case,  or  (2)  708  words,  whichever 
is  greater.  The  size  of  a  MAGIC  II  case  is  a  function  of 
such  quantities  as,  the  number  of  abstraction  instructions, 
the  size  of  the  matrices  in  the  system,  the  number  of  matrices 
in  the  system,  etc.  Since  the  allocation  of  blank  common 
storage  is  all  dynamic  and  is  a  function  of  the  size  of  the 
user's  problem,  it  is  very  difficult  to  calculate  the  exact 
number  of  words  of  blank  common  required.  However  a  few 
guide  lines  will  be  given.  In  subroutine  MRES  a  variable 
named  KONST  is  initialized.  This  variable  is  the  order  of  the 
largest  matrix  which  the  MAGIC  II  system  will  process.  The 
size  of  blank  common  working  storage  (i.e.,  the  WORK  array) 
must  be  at  least  four  and  one  half  times  the  value  of  the 
variable  KONST.  Since  the  MAGIC  II  system  is  designed  to 
nandle  matrices  of  order  up  to  3000,  the  usual  value  of  KONST 
l:'  3000  and  the  mininum  size  of  blank  common  working  s  .rage 
is  135X  words. 


0.  INITIAL  IMPLEMENTATION 

The  following  is  a  discussion  of  the  procedure  a  system 
analyst  should  go  through  in  Initially  implementing  the 
MAGIC  II  system  at  his  installation.  There  are  several  para¬ 
meters  which  define  the  basic  machine  configuration  which  "'ust 
be  set.  All  these  parameters  are  contained  in  subroutine  MRES 
and  are  defined  as  follows: 

a)  NPIT  is  the  FORTRAN  logical  data  set  number  of  the 
system  input  data  set. 

b)  NPOT  is  the  FORTRAN  logical  data  set  number  of  the 
system  output  data  set. 

c)  NAGEND  is  the  FORTRAN  logical  data  set  number  of  the 
data  set  which  contains  the  agendum  level  abstraction 
Instructions.  If  your  installation  does  not  make  use 
of  the  AGENDUM  capabilities  set  this  variable  to  zero. 

d)  KONST  is  the  order  of  the  largest  matrix  which  the 
MAGIC  II  system  will  process. 

e)  NWORK  is  the  length  of  the  table  WORK.  This  length 
is  the  size  of  blank  common  less  four.  NWORK  must 
be  at  least  four  and  one  half  times  KONST. 
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f)  KONFIG  is  a  table  which  describes  all  che  FORTRAN 
logical  data  sets  which  are  available  for  use  by  the 
the  FORMAT  II  system.  In  the  KONFIG  table  there 

are  five  entries  for  each  of  the  available  data  sets. 

The  first  entry  is  the  FORTRAN  logical  data  t 

number  of  an  available  data  set.  Each  of  thes j 

data  sets  must  be  in  binary  mode.  The  second  entry 
in  the  KONFIG  table  Is  the  FORMAT  II  system  function 
which  the  data  set  will  have.  At  present  there  are 
four  FORMAT  II  system  functions,  master  input  data 
set,  master  output  data  set,  utility  data  set,  and 
instruction  data  set.  A  master  input  data  set  is 
one  which  may  be  mounted  prior  to  a  FORMAT  II  execution 
and  which  may  contain  previously  generatec.  matrices. 

A  code  of  two  (2)  is  entered  in  KONFIG  for  this  type 
of  data  set.  A  master  jtput  data  set  is  one  which 

may  be  saved  at  the  en<  of  a  FORMAT  II  execution  and 

which  may  contain  matrices  which  are  generated  during 
a  FORMAT  II  execution.  A  code  of  three  (3)  is  entered 
in  KONFIG  for  this  type  of  data  set.  A  master  out¬ 
put  data  set  may  be  used  in  a  later  FORMAT  II  execution 
as  a  master  input  data  set.  A  utility  data  set  is  one 
which  is  used  by  the  FORMAT  II  system  as  scratch 
storage.  A  code  of  one  (1)  is  entered  in  KONFIG  for 
this  type  of  data  set.  The  instruction  data  set  is 
the  data  set  in  the  information  interface  between 
the  preprocessor  monitor  and  the  execution  monitor. 

A  code  of  four  (4)  is  entered  in  KONFIG  for  this  type 
of  data  set.  The  third  entry  in  the  KONFIG  table  for 
a  data  set  is  a  code  for  the  type  of  device  which 
contains  the  data  set.  The  codes  are  one  (1),  two  (2), 
three  (3)j  and  four  (4)  indicating  a  device  type  of 
tape,  disk,  drum,  and  a  data  cell,  respectively.  The 
fourth  entry  in  the  KONFIG  table  is  a  code  for  the 
logical  channel  to  which  each  device  is  attached. 

The  codes  are  one  (1)  through  ten  (10)  indicating 
logical  channels  A  through  J  respectively.  The  fifth 
and  final  entry  in  the  KONFIG  table  is  the  capacity 
in  basic  machine  units  (e.g.,  words)  of  the  data  set. 

A  zero  (0)  indicates  that  the  data  set  is  assumed  to 
be  infinite  in  capacity.  At  present  this  characteristic 
is  non-functional. 

g)  One  final  variable  must  be  initialized  in  subroutine 
MRES.  This  variable  is  NUMR  which  is  the  number  of 
data  sets  defined  in  the  KONFIG  table. 


In  assigning  MAGIC  II  systems  functions  to  the  available 
data  sets,  the  following  rules  must  be  followed: 

(1)  The  data  set  number  of  all  available  data  sets 
(i.e.,  NPIT,  NPOT,  and  all  data  sets  defined  in  the 
KONFIG)  must  be  unique.  (2)  All  data  sets  defined  in 
the  KONFIG  table  must  be  available  through  the 
Fortran  system  and  must  be  in  binary  mode.  (3)  Only 
one  data  set  may  be  given  the  MAGIC  II  system  function 
of  the  instruction  data  set.  If  the  MAGIC  II  system 
function  of  instruction  data  set  is  not  specified  for 
any  data  set,  one  is  selected  from  the  utility  data 
sets.  (4)  At  least  five  (5)  utility  data  sets  must  be 
specified  exclusive  of  that  which  may  be  selected  as 
an  instruction  data  set.  (5)  Any  number  of  master 
input  or  master  output  data  sets  may  be  specified. 

h)  The  minimum  machine  configuration  for  the  MAGIC  System 
requires  that  eight  (8)  external  storage  units  be 
available  to  MAGIC  and  assigned  to  the  system  via 
the  KONFIG  table  in  subroutine  MRES.  The  first 
external  unit  must  have  the  MAGIC  function  of 
instruction  data  set  (INSTRN).  The  next  two  external 
units  must  be  defined  to  have  the  MAGIC  functions 
of  master  input  data  set  (MASTRI)  and  master  output 
data  set  (MASTRO).  The  last  five  units  must  be 
defined  to  have  the  intermediate  utility  data  set 
MAGIC  function  (IOUTIL).  Four  of  these  utility 
data  sets  are  used  by  the  program  as  scratch  tapes  and 
the  other  one  is  necessary  for  intermediate  matrix 
results . 

It  is  important  to  note  that  if  more  than  one  data 
set  is  used  for  intermediate  matrix  results  ’’unning 
time  will  be  decreased.  This  can  be  accomplished 
by  defining  more  than  five  external  storage  units 
to  have  the  utility  data  set  function  (IOUTIL). 

This  concludes  the  initialization  procedure  in  subroutines 
MRES.  The  only  other  area  the  systems  analyst  need  be  concerned 
with  is  the  overlay  structure  of  the  MAGIC  II  system.  The 
overlay  structure  on  a  subroutine  basis  Is  illustrated  in 
Appendix  I. 
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D.  MACHINE  RESOURCE  DATA  CARD 


To  assist  the  MAGIC  systems  analyst  in  initially 
implementing  the  MAGIC  system  or  in  temporarily  modifying 
the  existing  logical  machine  configuration,  several  machine 
resources  data  cards  are  available.  These  cards  are  (1)  the 
-SETUP  card,  (2)  the  UPDATE  card,  and  (3)  the  DELETE  card. 
These  cards  are  used  in  conjunction  with  the  options  on  the 
$  MAGIC  card.  The  $MAGIC  card  defines  the  beginning  of  a 
MAGIC  case.  The  options  define  the  machine  resources  to 
be  used  during  the  running  of  the  case.  The  form  of  the 
card  is: 


1  16 

$MAGIC  STANDARD 

NEW 

CHANGE 


Where  the  options  are: 

STANDARD  -  The  standard  machine  configuration  will 
be  used  for  this  run. 

NEW  -  A  totally  new  machine  configuration  is  to 

be  entered  for  this  run  using  SETUP  cards. 

CHANGE  -  A  change  to  the  standard  machine  configura¬ 
tion  is  to  be  made  for  this  run  using  either 
UPDATE  or  DELETE  cards. 
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The  machine  resources  data  cards  are  defined  as  follows: 

(1)  SETUP  cards  are  required  if  the  NEW  option  has  been 
specified  on  the  $MAGIC  card.  This  set  of  cards  defines  a 
new  and  temporary  machine  configuration.  The  form  of  th^ 
card  is: 


7 

SETUP  (n,  function,  device,  channel,  capacity) 
where  the  arguments  are: 

n  -the  logical  data  set  number 

function-the  MAGIC  II  system  function  to  be  assigned 
to  this  data  set.  This  argument  may  be 
MASTRI  indicating  master  input  data  set, 
MASTRO  indicating  master  output  data  set, 
IOUTIL  indicating  intermediate  utility  data 
set,  or  INSTRN  Indicating  the  instruction 
data  set. 

device  -the  type  of  external  storage  device  that  the 
logical  data  set  is  to  reside  upon.  This 
argument  may  be  TAPE,  DISK,  DRUM,  or  CELL. 

channel  -the  channel  to  which  the  device  is  attached. 
This  argument  is  an  alphabetic  character 
from  A  thru  J. 

capaclty-the  capacity  of  the  logical  data  set  in 

basic  machine  units  (e.g.,  words).  A  zero 
indicates  an  infinite  capacity. 

(2)  The  UPDATE  card  is  used  if  the  change  option  has  been 
specified  on  the  $MAGTC  card.  This  card  defines  changes  or 
additions  to  the  standard  machine  configuration.  The  form  of 
the  card  is: 

7 

UPDATE  (n,  function,  device,  channel,  capacity) 

Where  the  arguments  are  identical  to  those  defined  for  the 
SETUP  card. 
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(3)  The  DELETE  card  is  used  if  the  change  option  has 
been  specified  on  the  $MAGIC  card.  This  card  deletes  a 
data  set  from  the  standard  machine  configuration.  The  form 
of  the  card  is: 

7 

DELETE  (n) 

Where  the  argument  is: 

n  -  the  logical  data  set  number  of  the  data 
set  to  be  deleted. 

The  machine  resources  data  cards  immediately  follow  the 
$MAGIC  card  in  the  deck  setup.  For  more  information  on  the 
machine  resources  data  cards  refer  to  subroutines  MRES,  MRES1 , 
MRES11,  MRES 2. 
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SECTION  III 


AGENDUM  LEVEL  ABSTRACTION  INSTRUCTIONS 


A .  INTRODUCTION 

An  Agendum  Level  abstraction  capability  has  been  incorporated 
into  the  MAGIC  System.  The  abstraction  instructions  for  any 
type  of  analysis  will  be  automatically  generated  for  the  user 
when  he  specifies  the  corresponding  option  on  the  ^INSTRUCTION 
card.  The  Agendum  library  is  expandable  and  the  addition  of 
more  abstraction  instruction  sequences  (Agendum)  only  requires 
the  updating  of  subroutine  AGENDM,  and  of  course  the  Agendum 
Library  itself.  The  use  of  an  Agendum  in  no  way  restricts  the  user 
because  he  can  include  in  his  input  deck  his  own  abstractions  to 
be  merged  with  the  selected  Agendum. 


B.  MODIFICATIONS  TO  SUBROUTINE  AGENDM 

Subroutine  AGENDM  controls  the  selection  from  the  Agendum 
library  of  the  abstraction  instruction  sequence  requested  on 
the  ^INSTRUCTION  card.  At  present,  this  subroutine  has  the 
capability  to  select  six  Agenduuns:  STATICS,  STATICSC,  STATICS  L', 
DYNAMICS,  DYNAMICSC  and  STABILITY .  In  order  to  add  more  options, 
the  following  variables  and  arrays  require  modification: 

a.  TYPE  is  the  matrix  which  contains  the  names  of 
the  abstraction  sequences  in  the  agendum  library. 
Increase  the  dimensions  of  this  matrix  and  add  the 
new  Agendum  names  via  DATA  statements. 


b.  LTYPE  is  an  array  whic^  contains  the  length  of  each 
Agendum  name  in  the  TYPE  array.  Increase  the 
dimensions  of  this  array  and  add  the  lengths  of  the 
new  Agendum  names  via  the  DATA  statement  in  sequential 
order  corresponding  to  the  names  in  the  TYPE  array. 

c.  NTYPE  is  the  variable  which  defines  the  number  of 
available  Agendum  in  the  library.  Increase  this 
variable  to  the  number  of  names  in  the  TYPE  array. 


c. 


SETTING  UP  THE  AGENDUM  LIBRARY 


In  subroutine  MRES  the  variable  NAGEND  defined  the  FORTRAN 
logical  unit  number  of  the  data  set  which  contains  the  Agendum 
level  abstraction  instructions.  Subroutine  AGENDM  expects  the 
abstraction  instructions  in  the  library  to  have  the  same  charac¬ 
teristics  as  card  images,  eighty  (80)  byte  records. 


1.  Agendum  Control  Cards 

Each  sequence  of  Abstraction  instructions  must  be 
proceeded  by  a  control  card  which  contains  a  name  corresponding 
to  a  name  in  the  TYPE  array  in  subroutine  AGENDM.  For  example, 
if  the  name  STATICS  appeared  in  the  TYPE  array  then  the 
abstraction  instructions  corresponding  to  the  statics  analysis 
would  have  to  be  proceeded  by  the  control  card  $STATICS,  the 
$  begins  in  card  column  1  and  there  are  no  blanks  allowed 
in  the  control  card. 

The  last  card  signifying  the  end  of  all  agendum  is 
the  $$END  control  card. 


2.  Examples  of  an  Agendum  Library 
CC1 

$5 .ATICS 

|  Statics  abstraction  instruction 

$DYNAMICS 

|  Dynamics  abstraction  Instruction 
$STABILITY 

|  Stability  abstraction  instruction 

$$END  (end  of  agendum  library) 
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3.  Examples  of  Agendum  Usage 


CC1  CC7  CC16 

+  +  + 

(a)  $M4GIC 

$RUN  GO 

$ INSTRUCTION  STATICS 
$SPECIAL 

[^Report  Form  Input  Deck  for  . USER04.  Instruction  J 
$END 


(b)  $ MAGIC 

$RUN 

INPUT  TAPE(OLD,1969) 

OUTPUT  TAPE(MAG}1970) 

$ INSTRUCTION  DYNAMICS 
A=DYNAM . ADD . LMASS 
SAVE(MAG)DYNAM,LMASS,A 
$SPECIAL 

Report  Form  Input  Deck  for  .USER04.  Instruction^] 
$END 
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SECTION  IV 


MAGIC  CATALOGUED  PROCEDURE 

The  MAGIC  Program  can  be  executed  using  a  catalogued  procedure. 
For  example,  if  ihe  executable  load  module  is  stored  in  the 
technical  library  under  the  program  .came  Xv5630,  the  following 
catalogued  procedure  can  be  used  for  initial  implementation. 

//MAGIC  EXEC  PGM=XY5630 

//FT01F001  DD  UNIT=SYSSQ,DISP=(NEW,DELETE),SPACE=(CYL,(5,4)) 

//FT02F001  DD  DDNAME-INPUT1 

//INPUT1  DD  UNIT=SYSSQ, DISP=(NEW, DELETE)  ,SPACS=( CYL, ( 5,4) ) 

//FT03F001  DD  DDUAME=INPUT2 

//INFUT2  DD  UWIT=SYSSQ, DISP=(NEW, DELETE), SPACE=( CYL, (5,4)) 

//FT04F001  DD  DDNAME=0UTPUT1 

//OUT  ?UTl  DD  UNIT=SYSSQ, DISP=(NEW, DELETE), SPACE=( CYL, (5,4)) 

//FTC  5FC01  DD  DDNAME=INPUT 

//T  i’06F001  DD  SYSOUT=A 

//FT07F001  DD  SYSOUT=B 

//FTOSFOOl  DD  DDNAME=OUTPUT2 

//0UTPUT2  DD  UNIT=SYSSnl,DISP=( NEW, DELETE) , SPACE=( CYL,  (5,4)) 

//FT09F001  DD  UNIT=SYSSQ,DISP=( NEW, DELETE), SPACE=( CYL, (5  4)) 

//FTlOFOOl  DD  UNIT=5YSSQ,DISP-( NEW, DELETE), SPACE-( CYL.  ( 5,4) ) 

//FT11F001  DD  UNIT=SYSSQ,DISP=-( NEW, DELETE) ,SPACE=( CYL,  (5,4) ) 

//FT12F001  DD  UNIT=SYSSQ, DISP=( NEW, DELETE) ,SPACE=( CYL, (5,4) ) 

//FT13F001  DD  UNIT=SYSSQ, DISP=( NEW, DELETE) , SPA CE=( CYL, (5,4)) 

//FT14F001  DD  UNIT=SYSSQ, DISP=(NEW, DELETE), SPACE=( CYL,  (5,4)) 

//FT15F001  DD  UNIT=SYSSQ, DISP=(NEW, DELETE), SPACE=(CYL, (5,4)) 

,//FT16F001  DD  UNIT=GYSSQ,DISP=(NEVJ, DELETE), SPACE=(CYL,  (5,4)) 

//FT17F001  DD  UNIT=SYSSQ, DISP=( NEW, DELETE), SPACE=( CYL, (5,4) ) 

//FT18F001  DD  UNIT=SYSSQ,DISP=(NEVJ,DELETE),DPACE=(CYL,(5,4)) 

//FT19F001  DD  DSNAMP  =AGENDUM,DISP=OLD 

//SYSABEND  DD  SYSOUT=A 

If  the  problem  program  required  any  input  or  output  tapes 
thoir  definitions  would  be  included  into  the  procedure  by 
overriding  the  DDNAMES :  INFUT1,  INPUT2,  OUTPUT1  or  01JTPUT2 .  For 
example,  if  one  inpu^c  tape  and  one  output  tape  was  required  then 
the  job  step  that  envoXed  the  catalogued  procedure  would  be: 


f  /AVI'*  a*  JKTRSswiftv^s^a.  v- 


;  ' J*TS"|5S573 ^T^R?^9P^ w* *'  **x>* "*• v*  ^  i»”:w>"'K^ 


//JOB 

//JOBLIB 

DD 

DS  N=TECHNICL, DIS  P=SHR 

//GO 

EXEC 

MAGIC 

//MAGIC. INPUT1 

DD 

(Tape  Definition) 

//MAGIC. 0UTPUT1 

DD 

(Tape  Definition) 

//MAGIC. INPUT 
{ 

DD 

* 

MAGIC  PROBLEM  DECK 


//* 

//END  JOB 


It  is  important  to  note  that  the  above  catalog  procedure 
is  just  a  sample  and  the  actual  procedure  that  you  will  implement 
may  greatly  differ  from  this  example.  The  number  of  data  sets 
defined  and  their  meaning  must  correspond  to  the  way  the  KONFIG 
array  is  defined  in  subroutine  MRES. 
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SECTION  V 


Type  Operating  System  or  Monitor  Used  (version,  etc.'*: 


(1)  Objective  of  test  run:  (Discuss  the  routines  or 
instructions  tested  and  expected  r*oSUits.) 


#  V T  Z}J7-frr^'.\f*- »  r'iF r^r*-' ’A l? f-- J 1  i* ■■  <4  ■ 


*r»i 
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(2)  Test  run  was: 

_  Satisfactory  (go  to  Item  8) 

_  Unsatisfactory  (go  to  Item  3). 

(3)  Check  major  reason  for  unsatisfactory  run: 

_  Program  design 

_  Program  error 

_  Documentation  error 

_  User  error 

_  Machine  failure 

(4)  Estimate  of  failure  significance: 

_  Critical  (preventing  further  progress  -  go  to 

Item  5) 

_  Significant  (can  continue  but  must  be  corrected 

soon  -  go  to  Item  5) 

_  Minor  (go  to  Item  6). 

(5)  Attach  trouble  supplement  sheets  to  provide  a  discussion 
of  run  results. 

(6)  Has  Development  Team  been  notified  of  the  problem  prior 
to  this  report  (i.e.,  during  test  session,  immediately 


after,  etc.)? 

No  (go  to 

Item  8) 

Yes  —  by 

phone; 

___  memo;  __ 

_ _  both; 

on 

(go  to  Item  8) 

date 

(7)  What  action  has  been  taken  by  Development  Team? 

(8)  Additional  comments,  if  any: 


Signature  uf  Coordinator 
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MAGIC  III-  TEST  RUN  REPORT 


(Trouble  Supplement  Sheet) 


P’ ogram  Name 
Date  of  Run 
Customer  Name 
Location 


MAGIC  III 


Report  Number 


INSTRUCTIONS:  1.  Discuss  run  results,  identify  errors  in 

program  and/or  documentation,  include 
customer's  comments  or  reactions,  include 
supporting  information  such  as  source 
program,  problem  solution  logic,  memory 
dumps,  copies  of  manual  pages,  etc. 

2.  Attach  numbered  and  completed  trouble 
supplements  to  appropriate  MAGIC  II  TEST 
RUN  REPORT,  page  1.  When  complete,  send 
one  (1)  copy  to  us  and  retain  one  (1) 
copy. 


DISCUSSION: 
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SUBSYS  CONTROL  DOCUMENTATION 
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APPENDIX  X 


SECTION  I 


A.  INTRODUCTION 

The  SUBSYS  package  consists  of  four  subroutines  written 
in  MAP.  The  first  subroutine,  .LOVRY,  is  placed  in  the 
program  deck,  thus  replacing  the  normal  .LOVRY  that  IBSYS 
would  have  provided.  The  function  of  this  altered  .LOVRY 
is  to  receive  control  after  the  program  has  be«.n  loaded  and 
to  then  copy  the  main  link  (LINK  0),  which  is  now  resident 
is  core  storage,  onto  a  specified  tape  unit.  Entry  is  then 
made  into  LNKSTK,  the  second  SUBSYS  subroutine,  which  will 
perform  the  function  of  copying  LINK  0  from  the  tape  written 
by  .LOVRY  onto  another  tape.  Also,  LNKSTK  will  place  the 
overlay  load  file  generated  in  the  IBLDR  phase  and  place  it 
on  the  same  tape  as  LINK  G.  Upon  completion  of  a  LNKSTK 
execution,  the  entire  program  will  be  on  tape  in  absolute 
load  mode  in  two  files;  the  first  containing  LINK  0  and  the 
second  containing  the  overlay  structure.  At  this  point  the 
program  may  now  be  edited  onto  the  System  Library  with  the 
aid  of  the  third  SUBSYS  subroutine,  COPYDK,  in  which  case  it 
may  be  invoked  by  a  $EXECUTE  XXXXXX  card,  or  the  cape  may  be 
saved  in  its  two  file  per  program  form  accessible  by  the 
fourth  SUBSYS  subroutine,  SEARCH.  SEARCH  has  the  capability 
of  locating  any  program  on  a  SUBSYS  generated  program  tape, 
loading  that  program's  LINK  0  into  cord  and  then  transferring 
control  to  It. 

Usage  of  a  SUBSYS  generated  program  tape  is  accomplished 
by  writing  a  FORTRAN  load  program  that  need  contain  only  one 
executable  statement,  CALL  SEARCH  (6HPR0GNM).  This  will 
cause  SEARCH  to  locate  the  program,  read  the  main  link  into 
core  and  execute  the  main  deck.  The  overlay  is  contained  in 
the  next  file  and  the  modified  .LOVRY,  now  resident  in  core 
with  the  main  link,  will  control  the  loading  of  the  overlay 
links.  The  modified  .LOVRY  will  also  substitute  backspace 
file  commands  in  place  of  rewind  selections  on  the  $0RIGIN 
cards  in  order  to  keep  inside  of  the  overlay  file  on  the  SUBSYS 
generated  program  tape. 

A  SUBSYS  generated  program  tape  may  contain  more  than 
one  program,  each  being  Identified  and  located  by  the  name 
that  was  assigned  to  1c  by  the  User  during  the  LNKSTK  phase. 
Execution  of  each  program  is  initiated  by  a  call  to  SEARCH 
supplying  the  program  name. 
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FORMAT  II,  with  the  structural  Generative  System 
-nsertion,  is  contained  on  one  SUBSYS  generated  program 
tape  as  three  separate  programs,  named  AFMTII,  BFMTII  and 
•USER04.,  which  are,  respectively,  the  FORMAT  II  Preprocessor, 
the  FORMAT  II  Execution  Monitor  and  the  Structural  Generative 
System.  Sequence  of  usage  of  the  three  programs  is  indicated 
on  the  following  two  lists,  the  first  reflecting  an  applica¬ 
tion  in  which  the  .USER04.  module  (Structural  Generative 
System)  is  accessed  and  the  second  reflecting  an  application 
in  which  the  .USERO2!.  module  is  not  accessed. 


B.  EXAMPLES 

1.  .USERO*!.  Module  Accessed 

The  FORTRAN  load  program  will  cause  the  loading  of  — 

(a)  AFMTII,  which  upon  completion  of  processing 

the  input  will  issue  a  call  to  SEARCH 
to  load  •• 

(b)  BFMTII,  which  upon  encountering  the  .USERO^. 

instruction  will  issue  a  call  to 
SEARCH,  to  load  - 

(c)  . USERO*! .  >t.hicn  upon  completion  of  matrix 

generation  will  issue  a  call  to  SEARCH 
to  load  - 

(d)  BFMTII,  which  upon  completion  of  execution  of 

the  input  abstraction  instructions  will 
call  SEARCH  to  load  - 

(e)  AFMTII,  which  will  begin  processing  the  next 

input  data  deck,  if  any. 


2.  .USERO1!.  Module  Not  Accessed 

The  FORTRAN  load  program  will  cause  the  loading  of  — 

(a)  AFMTII,  which  upon  completion  of  processing 

the  input  will  issue  a  call  to  SEARCH 
to  load, 
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(b)  BFMTII,  which  upon  completion  of  execution  of 

the  abstraction  instructions  will  call 

SEARCH  to  load  - 

(c)  AFMTII,  which  will  begin  processing  the  next 

input  data  deck,  if  any. 

.USER0*J.  and  non- .USER04 .  data  decks  may  be  batched 
together  on  a  single  loading  of  the  program. 

Due  to  the  fact  that  FORMAT  II  with  the  Structural 
Generative  System  is  actually  three  separate  programs,  the 
necessary  changes  required  for  implementation  on  a  given 
system  must  be  made  In  each  program.  The  same  information 
must  be  supplied  to  subroutine  MRES  in  AFMTII  that  was  needed 
for  direct  machine  control.  Main  programs  BFMTII  and  .  USERO*). 
each  have  a  subroutine  RESET  which  must  re-establish  the  size 
of  blank  common. 

The  sequence  of  operations  to  generate  a  SUBSYS 
program  tape  would  be  as  follows: 


1. 

IBSYS 

start  job 

2. 

IBJOB 

load  AFMTII 

3. 

LNKSTK 

place  AFMTII  on  SUBSYS  program  tape 

4. 

IBJOB 

load  BFMTII 

5- 

LNKSTK 

place  BFMTII  after  AFMTII  on 

SUBSYS  program  tape 

6. 

IBJOB 

load  .  USERO^J  • 

7. 

LNKSTK 

place  . USER04.  after  AFMTII  and 
BFMTII  on  SUBSYS  program  tape 

It  is  extremely  helpful,  but  not  necessary,  to  the 
above  procedure  that  LNKSTK  be  placed  into  IBSYS  as  a  sub¬ 
system  prior  to  executing  the  above  procedure.  Further 
examples  are  given  in  Section  II,  SUBSYS  Documentation. 
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SECTION  II 


SUBSYS  DOCUMENTATION 


A.  INTRODUCTION 

The  following  section  consists  almost  wholly  of  infor¬ 
mation  contained  in  the  distributed  documentation  supplied 
by  SHARF  regarding  SUBSYS.  Alterations  have  been  made  to 
enable  one  version  cf  S'JBSYS  to  be  compatible  on  a  stand 
alone  7090/9*’  or  on  a  Direct  Couple  System  70*10/7090  or 
70*1*1/709*1. 

Recognition  for  the  bulk  of  the  documentati on  is  deserved 
by  Mr.  David  E.  Bluett  of  Westinghouse  Electric  Corporation, 
author  of  the  original  SUBSYS  documentation. 

This  report  describes  a  package  of  programs  which  will 
operate  upon  any  FORTRAN  IV  program  in  such  a  way  as  to 
produce  a  program  tape.  The  programs  may  be  Overlay  or 
non-Overlay,  and  the  program  tape  may  conta1'  any  number  of 
such  programs.  The  tape  may  then  be  used  ar  a  mounted  program 
library  (similar  to  a  CHAIN  tape  in  FORTRAN  II)  or  may  be 
edited  directly  onto  the  system  tape  to  produce  executable 
subsystem(s)  under  IBSYS. 


B.  BACKGROUND 

The  need  for  a  package  such  as  SUBSYS  arose  out  of  a 
desire  tc  put  some  high-activity,  high-loau-llme  Overlay 
codes  somewhere  within  the  framework  of  IBSYS  to  proincreased 
accessibility  and  decreased  load  and  peripheral  times.  An 
attempt  was  first  made  to  insert  a  large  Overlay  code  into 
IBLTB,  with  the  intention  of  still  going  through  I3LDR ,  but 
eliminating  the  large  object  deck.  This  method  of  attack 
ran  'nto  considerable  troubles,  the  greatest  of  which  was  due 
to  the  limited  size  of  the  Subroutine  Name  and  De-endency 
Tables  when  doing  a  Librarian  edit.  It  became  obvious  that 
the  most  desirable  situation  would  be  the  ability  to  say: 

$EXECUTE  XXXXXX 

thereby  completely  eliminating  the  need  for  Input  looks  anu 
any  connection  with  IB-JOB.  Exan  ination  of  the  IBSYS  manual 
showed  that  a  subsystem  under  JBSYS  should  be  an  absolute 
assembly  and  obey  certain  rules.  It  seemed  that  a  FORTRAN 
program,  operating  under  lBJOB,  already  obeyed  these  rules 
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more  or  less  by  definition,  since  IBJ0B  is  itself  a  subsystem. 
The  only  problem  seemed  to  be  the  conversion  of  the  FORTRAN 
code  to  an  absolute  assembly  -  a  somewhat  formidable  task. 
However,  it  soon  became  obvious  that  the  main  link  of  an 
Overlay  job  (including  all  the  Library)  was  itself  an  "absolute 
assembly"  once  it  was  loaded,  and  that  the  link  tape,  once 
written,  was  also  in  absolute  scatter- loadj ng  format.  The 
problem  was  now  reduced  to  three  parts:  (1)  dumping  out  the 
main  link  after  it  was  loaded  by  IBLDR,  (2)  modifying  the 
Overlay  tape  to  correspond  to  proper  subsystem  rules,  and  (3) 
combining  these  two  entities  into  one,  ready  for  editing  onto 
the  system  tape  for  use  as  a  subsystem  under  IB3YS . 

To  solve  part  1,  a  small  program  called  CPYI.KO  (copy 
Link  0)  was  written  which  receives  control  immediately  after 
execution  and  merely  writes  the  main  link  out  on  tape.  For 
convenience,  this  program  has  been  made  part  of  . L0VRY,  which 
also  had  to  be  modified  to  properly  control  the  new  subsystems. 

Parts  2  and  3  were  solved  by  a  separate  program,  LNK3TK 
(Link  Stack),  which  modifies  and  combines  the  main  link  (as 
written  by  CPYLXO)  and  the  Overlay  tape  (as  written  by  IBLDR ) 
to  form  a  two-file  program  tape. 

Tests  were  performed,  and  it  was  proved  that  the  output 
tapes  from  LNK3TK  could  be  edited  onto  the  system  tape  and 
successfully  used  as  subsystems  under  I3SYS.  Even  though  these 
subsystems  were  placed  on  the  system  tape  after  IBJ0B  and  30RT, 
load  time  was  reduced  by  about  a  factor  of  4,  and  peripheral 
time  (for  input)  reduced  to  essentially  zero.  Card  shuffling 
errors  in  binary  decks  (a  large  source  of  lost  runs)  were 
eliminated  as  was  a  large  portion  of  ti.e  total  job  setup  time, 
.'ince  LNKOTK  has  the  ability  to  pack  all  of  the  record,  execu¬ 
tion  time  was  usually  improved,  except  in  the  cases  of  excess¬ 
ive  link  tape  rewinding  (. L0VRY  now  must  do  a  "backspace  file" 
instead  of  a  "rewind"). 

Once  this  part  of  the  package  was  operational,  it  was 
realized  that  the  program  tapes  produced  by  LNK3TK  could  be 
mounted  and  operate  just  as  well  by  themselves  as  they  did  a & 
subsystems  on  the  system  tape.  .Since  more  than  one  complete 
program  may  reside  on  the  program  tape,  all  that  was  needed  war 
a  small  loading  routine  to  perform  the  functions  of  .'Y'LDR.  with 
the  added  feature  of  program  selection.  To  provide  this  func¬ 
tion,  the  3EARCH  routine  was;  written,  and,  in  addition  t*  sub¬ 
system  generation,  the  r>UB.'Y3  package  now  provided  the  long- 
sought  solution  to  the  saving  of  Overlay  toper.  It  should  be 
noted  that  the  ability  to  rave  Overlay  tape,  came  about 
ially  as  a  by-product  of  the  process  for  ruoryrteni  generation. 
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C.  INSTRUCTIONS  FOR  USE  AND  DETAILS  ON  THE  SUBSYS  PACKAGE 

A 'Turtle  that  a  User  wishes  to  make  a  program  tape  from  an 
existing  PORTRAN  TV  Overlay  program.  Whether  this  tape  will 
later  be  edited  over  as  a  subsystem  or  merely  used  as  a  "chain" 
tape  is  immaterial,  since  the  technique  for  making  the  tape 
is  the  same  in  either  case. 

The  special  deck  for  . L0VRY  (with  OPYLKO)  is  inserted 
somewhere  in  the  main  link  of  the  program,  .and  the  job  is  sub¬ 
mitted  for  running  in  the  following  way: 

(1)  Any  desired  combination  of  .('.ATTACH  or  f.'.WTTOH  cards 
ic  needed. 

(2)  0*2  (and  any  other  options  desired  or  needed)  on  the 
SIBJ0B  card. 

(3)  only  one  link  tape  specified  on  the  !'0R1(HM  sards. 

(M  mhe  normal  ENTRY  card  (if  any). 

(c  )  No  data  (an  end-of-file  should  immediately  foil cw 
the  .‘i'DATA  "ard). 

The  program  will  load  (the  Overlay  tape  being  written 
where  directed  by  the  f0RIGIN  cards)  and  execute  by  transfer¬ 
ring  to  the  pre-execution  initialization  'action  ( FREE-' ) .  Tie 
first  instruction  ir.  FREE'  is  T  OX  .TT-IDP,  ;t ,  but  a  TTR  to 
lYI.KO  has  been  original  at  .’Y'-IDR  in  the  TB'Y1  nucleus.  The 
'PYLKO  section  of  . LOVPY  is  thu:  entered  immediately  via  .'.Y.’TDR. 

The  main  link  will  now  be  wri tten  out  as  one  big  record 
on  .'.YG0K2.  JYGCKr  is  already  the  Overlay  link  tape,  the 

output  tape  must  be  changed  by  altering  an  assembly  parameter 
in  crYLKO.  The  size  of  the  main  link  depends,  of  course  on 
the  last  location  used  by  this  link,  and  this  location  is  "al- 
-ulated  in  opYLKO.  The  main  link  will  be  written  from  ’Y 
through  this  last  word,  preceded  by  a  few  ommunicati  >n  and 
pointer  words,  and  followad  by  an  end-of-file.  The  output  tape 
fram  CPYLKO  is  left  un- rewound,  and  control  returns  to  IB’Y' 
via  >YARET .  The  cell  .'YGIDR  in  the  nucleus  has  boon  alter"! 
by  OpYLKO,  so  the  next  two  cards  in  the  deck  (and  t!v  la-t  tv;  > 
of  this  first  phase  of  the  job)  must  h" : 

■t 1B.’>Y.- 
:PE.’T0Pi-; 


tvjo  next  phase  of  t-h*"’  i>roce.  "  is  th"  >ir.b i  n*.t i <  n  >f  th** 


output  tape  from  CPYLKO  with  the  Overlay  tape  to  form  the 
final  program  tape.  This  combination  is  made  by  the  Link 
Stack  program,  which  will  normally  be  the  next  .lob  on  the 
input  tape.  It  is  strongly  suggested  that  LNKSTK  (Link 
Stack)  itself  be  made  a  subsystem  under  IBSYS,  since  this 
greatly  simplifies  the  deck  setup  and  eliminates  the  need 
for  protecting  the  Overlay  tape  during  the  loading  of  LNKSTK. 
Instructions  for  making  LNKSTK  a  subsystem  are  included  os 
Appendix  VIII,  and  this  description  will  proceed  on  the 
assumption  that  this  has  been  done. 


After  the  .f>REST0RE  card,  the  cards  are  as  follows: 

$J0B 

$EXECUTE  LNKSTK 

(LNKSTK  data  card,  giving  name,  tapes,  and 
options ) 

End-of-File  card 

Next  may  come  either  a  return  to  the  monitor 
for  signing  off,  a  system  tape  edit,  or  a  test 
run  on  the  new  program  tape  using  the  SEARCH 
routine. 

Once  LNKSTK  is  loaded,  it  will  read  its  data  card  con¬ 
taining  the  program  name  and  the  tape  information  required 
(the  data  card  format  is  detailed  in  Appendix  VII),  and  perform 
the  following  operations: 

1.  Rewind  all  pertinent  units  and  read  the  main  link 
as  written  by  CPYLKO. 


I  i 


2.  Modify  this  link  into  prope\  scatter-loading  format 
and  write  it  as  one  record  on  the  specified  output 
tape,  followed  by  an  end- jf-file. 

3.  Read  the  Overlay  tape,  modifying  the  link  records 
appropriately. 

4.  Write  the  modified  links  an  the  specified  output  tape, 
followed  by  an  end-of-file. 

5.  Print  a  map  showing  input  and  output  record  counts, 
word  counts,  etc. 

6.  Rewind  all  pertinent  units  and  exit. 
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rr  -  &  -  ~rrr  s  afffS 


The  program  tape  is  written  and  ready  for  use.  It  may  be 
edited  onto  the  system  tape,  loaded  by  means  of  the  SEARCH  pro¬ 
gram  or  dismounted  for  later  use. 

As  a  summary  by  way  of  example,  assume  that  it  is  desired 
to  make  a  program  tape  from  a  FORTRAN  IV  Overlay  code  called 
TSTJ0B,  edit  this  onto  the  system  tape  immediately  following 
IBJ0B,  and  then  run  (.  sample  case.  The  deck  set-up  would  be  os 
follows : 

1  8  16 

.fIBSYS 

$J0B 

(EXECUTE  IBJ0B 

I3J0B  jobnam  G0,MAP,  etc, 

IBLDR  DECK1 

(start  of  decks  for  main  link  of  program  "TSTJ0B" 

Compiles  and/or  assemblies  may  be  done  in  this  run). 


$ IBLDR  .L0VRY 

(special  deck  of  .L0VRY  with  CFYLKO  included  somewhere 
in  main  link) . 


$0RIGIN  (start  of  link  1) 


(remainder  of  program) 


($ENTRY  card  if  normally  included) 

$DATA 

End-of-file  card 

!IBSYS 
REST0RE 
J0B 

EXECUTE  '  LNKSTK 

(Link  Stack  data  card,  explained  in  Appendix  VII) 
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End-of-file  card 

$IBSYS 

$IBEDT 

XEDIT 
x PLACE 
* REMARK 
x REMARK 
PILE  *AFTER 
x REMARK 
XDUP 
s REMARK 

End-of-file  card 

$IBSYS 

$PAUSE 


flBSYS 

SJ0B  TSTJOB  MAY  NOW  BE  USED  AS  A  SUBSYSTEM 

^EXECUTE  TSTJ0B 

(sample  data  deck  for  TSTJ0B) 

End-of-file  card 

Obviously,  any  number  of  subsystems  may  be  DUPed  on  in 
one  edit,  providing  the  proper  *PLACE,  * AFTER,  and  *DUP  cards 
are  used.  In  the  IBSYS  edit,  the  unit  SYSxxx  will  be  the 
LNKSTK  output  tape,  which  is  one  of  the  data  card  parameters. 

As  an  alternate  possibility,  assume  the  activity  of  TSTJ0B 
is  not  sufficiently  high  to  warrant  it  inclusion  as  a  subsystem, 
but  that  the  load  time  is  high  enough  to  allow  significant 
savings  from  the  use  of  a  program  tape.  The  user  therefore 

desires  to  make  a  program  tape  to  be  mounted  on  SYSLB2.  It 

should  be  noted  that  program  tapes  produced  by  LNKSTK  can  only 
be  mounted  on  one  drive  due  to  the  changed  structure  of  .L0VRY. 
In  other  words ,  'if  the  program  tape  for  T3TJ0B  is  made  to  run 
on  B5,  then  it  must  always  run  on  B5.  This  so-called  "running 
link  tape"  is  one  of*  the  parameters  on  the  LNKSTK  data  card  and 
must  be  SYSLB2  for  this  version  of  SUBSYS.  The  following  ex¬ 
ample  illustrates  the  use  of  the  SEARCH  routine  in  conjunction 
with  a.  program  tape.  The  deck  set-up  is  exactly  the  same  as 
before,  up  through  and  including  the  EOF  after  the  LNKSTK  data 
card.  The  last  three  identical  cards  will  be  re-listed  for 
continuity. 

1  8  -  16 

.^EXECUTE  LNKSTK 


MAP,M0DS 
TCTJ0B,2,1  .?> 

N0W  IN  NAME  TABLE  AS  2ND  SUBSYSTEM,  2  FILES 

P0SITI0N  TAPE  AFTER  IBJ0B 

IBJ0B 

DUP  IN  TSTJ0B  FR0M  SYSxxx 
SYSxxx, SYSUT1, 2 
ALL  D0NE 


SET  UP  NEW  SYSTEM  TAPE,  etc. 
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(Link  Stack  data  card) 

End-of-file  card 
$J0B 

.‘^EXECUTE 
SIBJ0B 
•f-IBFTC  CALL 
C 

CALL  SEARCH  (6HTSTJ0B) 


ST0P 
END 

•f>DATA 

(Sample  data  deck  for  TSTJ0B ) 

End-of-file  card 

This  example  assumes  that  SEARCH  has  been  placed  on  the 
IBJ0B  library  ( IBLIB) .  If  this  is  not  the  case,  the  binary 
deck  for  SEARCH  would  follow  the  END  card  of  the  FORTRAN  pro¬ 
gram  above.  Note  that  the  calling  sequence  to  SEARCH  is 
similar  to  that  used  for  CHAIN  in  FORTRAN  II,  except  that  the 
tape  to  be  searched  is  omitted  since  it  is  assumed  to  be  SYSLB2 . 

Search  finds  the  specified  program  on  SYSLB2  by  name  and 
scatter-loads  it  right  on  top  of  itself,  leaving  only  enough 
to  execute  a  transfer  to  SYSTRA  which  will  commence  execution 
of  the  desired  program.  The  time  saved  when  running  with  a 
mounted  program  tape  and  using  SEARCH  is  obviously  most  depend¬ 
ent  on  the  time  used  to  hang  the  tape.  The  time  taken  to  load 
SEARCH  and  its  calling  routine  and  to  find  and  load  the  program 
is  usually  no  more  than  .004  hours. 

D.  SUMMARY 

The  SUBSYS  package  consisting  of  .L0VRY  with  CFYLKO, 

LNKSTK,  and  SEARCH  can  provide  considerable  savings  in  setup, 
peripheral,  and  main-frame  time  when  used  with  7090,  7094, 

7094/2  FORTRAN  IV  Overlay  and  non-Overlay  codes. 

Since  no  modifications  are  involved  to  IBSYS  or  IBJ0P, 
SUBSYS  should  be  more  "version  independent"  than  other  packages 
available  which  do  involve  system  mods.  SUBSYS  has  been  tested 
on  both  version  12  and  version  13  installations.  This  is  a 
tape-oriented  package,  and  its  value  to  a  disk-oriented  user 
is  questionable.  It  is  left  to  the  disk  user  to  make  such  an 
evaluation . 


IBJ0B 

G0,MAP 
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SECTION  III 


DETAILS  ON  LNKSTK 


A .  INTRODUCTION 


The  information  needed  by  LNKSTK  to  produce  a  program  tape 
is  supplied  by  two  sources:  the  communication  words  passed  on 
by  CFYLKO,  and  the  LNKSTK  data  card.  The  communication  words 
are  obtained  by  LNKSTK  when  it  reads  the  main  link  from  tape, 
and  are  described  in  Appendix  IX. 


B.  LNKSTK  DATA  CARD  FORMAT 


Field  Columns 


Contents 


1 


2 


3 


4 


1-6 


8-13 


15  -20 


22  -  27 


The  program  name  as  it  will  appear  in 
the  first  record  of  the  program  and  on 
the  ^EXECUTE  card  or  SEARCH  argument. 

The  name  must  be  BCD,  6  character  max., 
left  adjusted  in  the  field  with  trailing 
blanks  if  less  than  6  characters.  If 
this  program  is  to  become  a  subsystem, 
the  name  must  be  different  from  any 
other  system  record  name. 

Input  tape  on  which  LNKSTK  may  expect  to 
find  the  main  link  as  written  by  CPYLKO. 
This  unit  must  be  specified  as  SYSxxx, 
and  would  be  SYSCK2  if  running  with  the 
distributed  version  of  CPYLKO  which  uses 
SYSCK2  for  its  output. 

Input  tape  containing  the  Overlay  links 
as  written  by  IELDR,  This  unit,  which 
must  also  be  specified  by  its  SYSUNI 
name,  is  the  tape  presently  containing 
the  Overlay  Jinks,  regardless  of  what 
SYSUNI  it  may  have  been  (due  to  $ATTACH 
and  $SWITCH  cards )  when  the  program  was 
loaded.  If  this  is  not  an  Overlay  job, 
the  word  "N0LINK"  must  be  inserted  in 
this  field. 

This  field  is  another  SYSUNI  name  which 
specifies  the  "running  link  tape",  or 
the  unit  on  which  the  program  tape  mxist 
be  mounted  when  running  with  the  SEARCH 
program  and  must  be  SYSLB2  for  the  dis¬ 
tributed  version  of  LNKSTK  and  SEARCH. 


Field 


Columns 


Contents 


5 


6 


7 


If  this  is  not  an  Overlay  job,  the  word 
"N0LINK"  may  be  inserted  in  this  field. 

29  -  34  Output  tape  for  LNKSTK,  also  a  SYSUNI 

name.  This  name  may  be  the  same  as  that 
in  Field  2,  but  may  not  be  the  same  as 
the  Overlay  link  tape  in  Field  3.  It 
may  be,  but  is  not  necessarily  the  same 
as  the  "running  link  tape"  in  Field  4. 

36-39  If  the  record  packing  option  is  desired, 
this  field  should  contain  the  word 
"PACK".  If  PACK  is  specified,  all 
records  for  each  Overlay  link  (written 
as  464  words  by  IBLDR)  will  be  combined 
to  form  one  long  record.  The  .LRBCT 
table  generated  by  the  loader  is  modif¬ 
ied  by  LNKSTK  to  reflect  the  new  posi¬ 
tions  of  the  links  on  tape.  So  called 
"remote  sections"  specified  by  $INCLUDE 
cards  cannot  be  handled  by  LNKSTK*.  This 
feature  means  that  considerably  less  tape 
is  used  for  the  link  section  of  the  pro¬ 
gram,  due  to  fewer  record  gaps.  Link 
loading  is  considerably  faster,  usually 
resulting  in  an  overall  improvement  in 
execution  time.  If  this  option  is  not 
specified,  the  records  produced  will  be 
465  words,  a  BCD  name  being  added  to  each 
record  (standard  system  record  format). 
This  option  is  meaningless  for  a  non- 
Overlay  job. 


4l  -  45  Rewind  options  applying  to  the  LNKSTK 

(if  Field  output  tape.  Either  RB  and/or  RA,  in 

6  was  either  order,  may  occupy  this  field,  or 

present)  the  field  may  be  null. 


*  See  Version  13  IBJ0B  manual,  C28-6389-O,  page  43. 
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Field 


Columns 


Contents 


7 


36-40 
(if  Field 
6  was 
absent) 


To  permit  the  stacking  of  more  than 
one  program  on  the  output  tape,  the 
rewinds  are  strictly  controlled  by 
these  options.  If  RB  (rewind  before 
writing  this  program)  is  specified, 
LNKSTK  will  perform  a  rewind  on  the 
output  tape  immediately  before  it 
attempts  to  write  the  modified  main 
link.  If  RA  (rewind  after  writing  this 
program)  is  specified,  LNKSTK  will 
finish  writing  the  last  Overlay  link, 
write  an  E0F,  and  write  a  3  word 
trailer  record  containing  the  word 
"ENDTPE".  It  will  then  rewind  the 
output  tape.  This  trailer  record  will 
cause  the  word  ENDTPE,  to  scatter-load 
into  SYSFAZ,  enabling  the  SEARCH  rou¬ 
tine  to  recognize  the  end  of  the  pro¬ 
gram  tape.  RB  must  be  specified  for 
the  first  (or  only)  program  to  be  put 
on  the  output  tape,  while  RA  must  be 
specified  for  the  last  (or  only)  pro¬ 
gram.  If  more  than  two  programs  are 
to  be  stacked  on  the  output  tape,  any 
"middle"  programs  would  have  neither 
option  specified  to  insure  that 
no  rewinds  are  performed. 


All  fields  are  separated  by  commas  (or  any  other  non-blank 
delimiter).  The  remainder  of  the  card  after  col.  45  is  availa¬ 
ble  for  comments.  Fields  1-5  must  be  present  in  the  columns 
assigned,  while  the  last  two  fields  are  optional. 


C.  EXAMPLES 


col.  1 
* 

TSTJ0B, SYSCK2, SYSUT2, SYSLB2, SYSUT5, PACK, RB, RA 
SIFT  , SYSCK2, SYSLB3, SYSLB2, SYSCK2, PACK 
SMALJB, SYSCK2, N0LINK, N0LINK, SYSLB2, RB 
BIGJ0B, SYSUT3, SYSCK2, SYSLB2, SYSUT7, PACK, RA 

The  setup  for  stacking  more  than  one  program  on  the  out¬ 
put  tape  is  merely  an  extension  of  the  case  for  one  program. 
The  order  of  jobs  in  the  deck  would  be  similar  to  the  follow¬ 
ing: 
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/ 


First  Program 

LNKSTK  run  (with  RB  on  the  data  card) 
Second  Program 

LNKSTK  run  (with  no  rewind  options) 


nth  Program) 

nth  LNKSTK  run,  no  rewinds) 


Last  Program 

LNKSTK  run  (with  RA  on  the  data  card) 

The  output  tape  would,  of  course,  be  the  same  on  all 
these  LNKSTK  data  cards,  while  the  other  options  may  be  as 
desired.  Overlay  and  nor -Overlay  programs  may  be  stacked  on 
the  same  tape.  A  double  E0F  will  follow  a  non-Overlay  pro¬ 
gram,  so  that  each  program  will  be  2  files  for  the  SEARCH 
routine  (see  Appendix  X).  If  the  system  rewinds  the  LNKSTK 
output  tape  between  jobs  or  job  segments,  these  rewinds  must 
be  circumvented  if  more  them  one  program  is  to  be  stacked  on 
a  given  output  tape. 

In  addition  to  writing  the  main  link  in  scatter-load 
format,  LNKSTK  provides  entries  for  the  following  communica¬ 
tion  cells: 


1. 

Location 

2 

-  TTR  .LXSTR 

2. 

Location 

108 

-  TTR  .FFfRP 

3. 

Location 

2308* 

-  A  corrected  skew-check  mask. 

4. 

SYSTRA 

-  TTR  PREEX  (start  of  pre-execution 
initialization) 

5. 

SYSGET 

-  "IBSXEC" 

6. 

SYSFAZ 

-  program  name  from  data  card 

*  A  "feature"  has  been  added  in  IBSYS  Version  13  such  that 
any  I0CP  with  a  word^  count  greater  than  37777g  which  enters 
SYSTCH  causes  the  record  to  be  treated  as  if  °  it  we re  re¬ 
dundant.  Entry  3  above  corrects  this,  but  is  only  done  if 
LNKSTK  is  assembled  for  Version  13.  See  "Assembly  Para¬ 
meters". 


10.16 


/ 


7. 

SYSL0C 

zero 

8. 

. JLIN  (line  ctr.) 

-  zero 

9. 

SYSCUR 

-  name  of  each  record  (main  or  Overlay 

as  It  is  loaded 


The  program  name  enters  SYSFAZ  and  SYSCUR  when  the  main 
link  is  leaded,  and  the  name  remains  in  SYSFAZ  throughout  the 
run.  Each  link  record  stores  its  name  in  SYSCUR  as  it  is 
loaded,  so  that  the  contents  of  SYSCUR  will  always  represent 
the  last  record  read. 

The  link  record  name  is  a  combination  of  the  program  name 
and  the  link  number  if  record  packing  is  in  effect,  or  the  pro¬ 
gram  name,  link  number,  and  record  number  if  packing  is  not  in 
effect. 

Examples  from  "TSTJ0B": 

Packing:  TSTJ04  (Link  4) 

No  Packing:  TST721  (Link  7,  Record  21) 

All  the  link  and  record  numbers  will  be  BCD.  The  link 
will  occupy  2  characters  if  it  becomes  greater  than  9. 

D.  ASSEMBLY  PARAMETERS 

1.  VRSION  -  assembled  as  13  by  a  "SET".  Pertains  to 
the  existence  of  SYSUT5-SYSUT9  and  to  skew-mask 
correction.  See  Appendix  X,  since  the  same  para¬ 
meter  is  contained  in  SEARCH  to  control  1-0  table 
assembly. 

2.  UNIT  -  assembled  as  SYSCK2.  This  is  the  output 
unit  on  which  LNKSTK  will  dump  itself  if  entered  by 

a  $ENTRY  CPYLNK  card.  It  must  therefore  be  specified 
as  the  input  unit  on  the  LNKSTK  data  card  when  pro- 
duqing  a  program  tape  from  LNKSTK  itself  (see 
Appendix  VIII). 

33.  ERROR  MESSAGES 

If  any  error  is  detected  during  a  LNKSTK  run,  a  message: 

ERR0R  IN  LINK  STACK  AT  RELATIVE  L0C  XXXXX  0CTAL  (SEE  LISTING). 
CANN0T  PR0CEED .  is  printed  off-line.  Examination  of  the 
comments  on  the  listing  will  reveal  the  ature  of  the  error. 

The  message.* 

ERROR  IN  LINK  STACK.  FLUSH  A.JY  hY  JNING  PARTS  0F  THIS 

J0B  HIT  STAhT  S0  DUMP 

0PERAT0R  ACTI0N  PAUSE 

is  printed  on-line.  Depressing  the  START  key  will  cause  a  core 
dump  via  SYSDMP  (AC,  MQ,  etc.  are  saved),  but  the  operator  is 
responsible  for  flushing  the  rest  of  the  run. 
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F.  DUMP  FEATURE 

If  User  modifications  are  made  to  LNKSTK,  or  if  there 
seems  to  be  trouble  during  a  LNKSTK  run,  it  may  be  desirable 
to  obtain  a  core  dump  immediately  after  LNKSTK  is  through 
with  its  processing.  To  provide  this  facility,  a  feature  has 
been  added  to  LNKSTK  such  that  the  console  entry  keys  are 
examined  before  LNKSTK  returns  to  IBSYS  via  SYSRET.  If  any 
prefix  key  (S,  1,  or  2)  or  any  combination  of  prefix  keys  is 
down,  LNKSTK  will  exit  via  SYSDMP  rather  than  via  SYSRET. 

The  operator  must,  of  course,  be  informed  that  the  key(s) 
are  to  be  set  before  the  termination  of  the  LNKSTK  run. 

G.  RESTRICTIONS 

The  fact  that  LNKSTK  cannot  handle  "remote"  sections 
specified  on  $INCLUDE  cards  has  already  been  mentioned,  as 
has  the  fact  that  only  one  link  tape  may  be  called  for  on  the 
$ORIGIN  cards. 

Other  problems  may  arise  from  certain  record  size  limita¬ 
tions  are  imposed  by  SUBSYS  and  the  systems  which  it  must  use. 
LNKSTK  has  a  buffer  size  of  280001Q  words  (665400),  and  this 

represents  the  maximum  size  of  any  link  record  (the  main  link 
would  usually  be  the  largest  record,  since  it  contains  all 
the  library  routines  and  possibly  some  named  C0MM0N),  When 
running  strictly  from  a  program  tape,  the  SEARCH  routine  can 
load  a  record  in  excess  of  the  LNKSTK  maximum  (actually  28246 
or  671260).  However,  things  are  not  so  simple  when  using  the 
system  editor.  At  the  time  of. this  writing,  no  documentation 
of  any  record  size  limitation  has  been  found  in  either  the 
coding  for  EDIT0R  or  the  IBSYS  manual,  but  examination  of  the 
actual  1-0  command  in  EDITOR  shows  the  following  limits: 

IBSYS  Ver.  12  (EDITOR  Ver. 5)  -  2460710  or  60037g 
IBSYS  Ver.  13  (EDITOR  Ver. 6)  -  2384o1Q  or  56440q 

Analysis  of  a  L0GIC  or  MAP  will  show  whether  a  program  is 
within  these  limits.  Insertion  of  one  or  two  redundant  $0RIGIN 
cards  in  the  main  link  i3  usually  all  that  is  needed  to  bring 
the  program  back  into  line  with  LNKSTK  and  EDIT0R. 

In  IBSYS  Ver.  13,  SYSLDR  has  been  changed  to  check  for 
skew-errors  by  insisting  that  no  bits  enter  bit  position  3,  19, 
and  20  of  any  scatter  load  I0CP.  This  has  been  corrected  by 
the  skew-mask  described  previously,  which  effectively  allows 
SYSLDR  to  lead  a  record  of  any  size.  Regardless  of  the  method 
used,  the  practical  size  limit  is  still  SYSEND-SYS0RG. 
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SECTION  IV 


LNKSTK  AS  AN  EXECUTABLE  SUBSYSTEM 


A .  INTRODUCTION 

If  LNKSTK  is  loaded  from  a  binary  deck,  not  only  is  the 
deck  setup  for  making  a  program  tape  somewhat  more  complicated, 
but  certain  SYSUTx  files  (which  might  contain  the  Overlay 
links)  must  be  protected  during  the  loading  of  LNKSTK.  The 
ideal  situation  is  to  have  LNKSTK  reside  on  the  system  tape  as 
an  executable  subsystem.  Ttis  adds  no  appreciable  "bulk"  to 
the  system  tape,  since  LNKSTK  is  only  one  file,  consisting  of 
one  2200  word  record,  and  the  deck  3etup  of: 

$J0B 

^EXECUTE  LNKSTK 
(LNKSTK  data  card) 

is  certainly  as  compact  and  simple  as  could  bo  desired. 

B.  INSTRUCTIONS  FOR  MAKING  LNKSTK  ITSELF  A  SUBSYSTEM 

LNKSTK  has  its  own  built-in  equivalent  of  CFYLKO,  called 
CF'YLNK,  which  may  be  entered  in  the  case  where  it  is  desired  to 
have  LNKSTK  operate  on  itself.  Since  this  entry  is  not  the 
general  case,  it  is  not  made  automatically  as  it  is  in  the 
CFYLKO  section  of  .L0VRY,  but  must  be  made  by  a  $ ENTRY  card. 

The  deck  setup  to  make  a  program  tape  from  LNKSTK  itself  and 
edit  it  over  to  the  system  tape  immediately  after  IBJ0B  is  as 
follows : 

1  8  16 

|IESYS 

$J0B 

^EXECUTE  IBJ0B 

&IBJ0B  G2,MAP 

$IBLDR  LNKSTK 

(LNKSTK  binary  deck) 

SDKEND  LNKSTK 

5!  ENTRY  CFYLNK 

$DATA 
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data  card: 


LNKSTK , S YSCK2 , N0LINK, N0LINK , SYS  CK2 , RB , RA 
End-of-file  card 


SIBSYS 

SJ0B 

$IBEDT 

♦EDIT 
* PLACE 
FILE  *AFTER 
XDUF 

End-of-file 

$IBSYS 


MAP,M0DS 
LNKSTK, 1,1,2 
IBJ0B 

SYSCK2 ,  SYSUl’l ,  1 
card 


In  this  example,  the  $ENTRY  card  will  cause  LNKSTK  to 
write  itself  out  on  SYSCK2  (this  tape  is  an  assembly  parameter 
in  LNKSTK)  before  transferring  to  its  normal  entry.  It  will 
then  read  its  data  card  and  proceed  as  it  would  on  any  ron- 
Overlay  job.  Note  the  following  on  the  data  card: 


1.  The  program  name  is  specified  as  LNKSTK  (similarly  on 
the  *PLACE  card),  and  this  is  the  name  that  must  be 
specified  on  the  $EXECUTE  card  when  using  the  sub¬ 
system. 

2.  The  input  tape  for  the  main  (and  only)  link  is  specif¬ 
ied  as  SYSCK2 . 

3.  The  N0LINK  feature  is  specified  in  place  of  the  normal 
link  tape  designations,  signifying  that  this  is  not  an 
Overlay  job. 

4.  SYSCK2  is  also  used  for  the  output  tape,  illustrating 
the  fact  that  the  output  tape  for  LNKSTK  may  be  the 
same  as  the  main  link  onput  tape. 

5.  The  PACK  option  is  not  specified,  since  this  would  be 
meaningless  for  a  non-Overlay  job. 

6.  Since  this  is  the  only  program  to  be  put  on  the  output 
tape,  both  the  R3  (rewind  before)  and  RA  (rewind  after) 


The  new  system  tape,  containing  LNKSTK  as  the  2nd  subsystem 
under  IBSYS,  will  be  produced  on  whatever  unit  is  attached  as 
SYSUT1 . 
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SECTION  V 


DESCRIPTION  OF  THE  MODIFIED  .L0VRY  WITH  CPYLKO 


The  standard  IBM  routine  .L0VRY,  whose  function  is  the 
loading  of  Overlay  links,  has  been  somewhat  modified  for  use 
with  the  SUBSYS  package.  The  largest  change,  of  course,  is 
the  addition  of  the  CPYLKO  routine,  which  is  discussed  else¬ 
where  in  this  write-up.  Other  changes  are  as  follows: 

1.  The  table  of  legal  link  tapes  (UNITAB)  has  been 
reduced  to  one  location,  since  now  only  one  link 
tape  is  used,  whether  running  as  a  subsystem  or 
as  a  program  tape.  All  general  references  to 
UNITAB  (as  a  table)  have  been  removed,  and  the 
UNITAB  index  in  the  .LRECT  table  is  no  longer 
examined.  Bie  single  UNITAB  cell  in  .L0VRY  is 
now  set  by  LNKSTK  during  its  processing  of  the 
main  link,  the  desired  ^running”  link  tape  being 
specified  on  the  LNKSTK  data  card.  Since  only 
one  link  tape  may  now  be  used,  certain  codes  which 
have  an  extremely  high  activity  of  link  loading 
and  link  tape  rewinding  may  run  considerably  longer 
under  this  system,  possibly  enough  to  negate  its 
worth.  This  is  something  that  is  best  determined 
empirically. 

2.  All  disk  and  hypertape  coding  has  been  removed  for 
simplicity,  since  SUBSYS  is  a  tape  oriented  package. 

3.  The  IBSYS  Version  13  Mod.  which  adds  the  skew  error 
check  is  not  included,  since  this  has  not  proved 

to  be  troublesome  in  our  installation.  It  may  easily 
be  inserted  by  the  User  if  desired. 

4.  The  subsystem  (or  program  tapes)  are  now  two  files, 
the  main  link  being  one,  and  the  Overlay  links  the 
second.  .L0VRY  must  then  skip  over  the  E0F  after 
the  main  link  on  the  first  entry  and  after  each  BSF. 
BSF'r  now  replace  rewinds  when  a  rewind  is  requested 
by  REW  on  the  $0RIGIN  card. 
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5.  If  the  PACK  option  is  specified  on  the  LNKSTK 
data  card,  all  records  for  one  Overlay  link  will 
be  packed  into  one  long  record,  thereby  reducing 
the  length  of  tape  needed  for  the  program  and 
shortening  the  time  for  link,  loading.  However, 
the  .LRECT  table  produced  by  the  loader  will  no 
longer  reflect  the  correct  record  counts  and  tape 
positions  for  each  link.  Ibis  table  is  automatical¬ 
ly  modified  in  LNKSTK  to  reflect  the  true  "one 
record  per  link"  status  of  the  link  file  on  the 
tape.  No  change  to  .L0VRY  is  involved  here. 

Aside  from  these  changes,  .LjZJVRY  is  essentially  the 
same.  The  number  of  words  removed  is  about  the  same  as  the 
number  of  words  added  by  the  addition  of  CPYLKO.  In  the 
process  of  writing  the  main  link  from  SYSLOC  through  its 
last  word,  CPYLKO  also,  passes  on  to  LNKSTK: 

1.  The  address  of  PREEX 

2.  The  addresses  of  .LaSTR  and  .FFTRP 

3.  The  address  and  length  of  the  .LRECT  table. 

4.  The  address  of  UNITAB  in  .L0VBY. 

All  other  information  needed  by  LNKSTK  is  present  on  the 
data  card. 

The  length  of  the  main  link  is  calculated  at  execution 
time  in  CPYLKO.  A  search  Is  performed  from  SYSEND-IOOO  back¬ 
ward  (towards  location  0),  looking  for  the:  first  word  that 
is  not  ah  STS  0,  ,0,  This  is  assumed  to.  be  the  last  word  of 
the  main  link.  This  is  reliable  as  long  as  IBLDR  performs 
as  it  is  supposed  to  in  its  final  section,  and  this  method 
is  certainly  preferable  to  using  an  assembly  parameter  as 
was  formerly  done.. 

The  standard  error  message  in  .LjfVRY  is  written  on  first 
entry  if  the  UCB's  for  the  unit  specified  in  UNITAB  and  SYSLB1 
show  both  chese  units  at  load  point. 
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SECTION  VI 


DESCRIPTION  OP  THE  SEARCH  ROUTINE 


A.  INTRODUCTION 

The  general  function  of  the  SEARCH  routine  has  been 
described  earlier  in  this  manual,  Tho  scatter-load  and 
redundancy-checking  routine  is  origined  :at  72000q  to  prevent 

it  from  being  destroyed  as  a  large  main  link  is  scatterload¬ 
ing  in.  The  initialization  and  table  sections  of  the  program 
will  be  destroyed  In  this  process,  since  they  ar6  needed  only 
once.  The  search  *or  the  program  is  dependent  on  the  BCD  name 
supplied  in  the  calling  sequence.  The  program  name  fi’om  tape 
will  be  scatter- loaded  into  SYSPAZ.  When  SYSPAZ  becomes 
non-zero,  SEARCH  compares  its  contents  with  the  name  from 
the  CALL.  If  they  are  the  same,  the  scatter-load  is  allowed 
to  continue,  and,  if  not  redundant,  control  then  passes  to 
the  main  link  via  SYSTRA.  If  the  names  are  not  the  same, 
the  scatter-load  is  immediately  terminated  a’ id  2  files  are 
skipped.  The  process  is  then  repeated  until  either  the 
program  is  found  or  the  word  “ENDTJB”  enters  SYSPAZ,  signify¬ 
ing  the  end  of  the  tape.  If  this  trailer  label  is  encountered, 
an  error  message  is  printed  and  the  program  exits  via  SYSDMP. 

B.  CALLING  SEQUENCE 

In  FORTRAN  or  MAP:  CALL  SEARCH  (Argl) 

where  Argl  is  the  program  name  as  6Hxxxxxx 

It  is  strongly  suggested  that  SEARCH  be  edited  onto  the 
-IBJ0B  library  as  soon  as  it  has  been  reassembled  for  the 
particular  installation. 


C.  ASSEMBLY  PARAMETERS 

1.  VRSI0N  is  assembled  as  13  by  a  "SET",  and  represents 
the  version  of  IBSYS  in' use.  It  pert- Ins  only  to 
the  existence  of  3YSUT5  -  3YSUT9  and  is  used  with 
IFT's  and  IFF’s  to  control  the  assembly  >f  the  1-0 
tables. 

2.  BCDTAB  -  table  of  BCD  SYSUNI  names. 

3.  SYSTAB  -  table  of  SYSUNI  indices. 

4.  RDSTAB  -  tables  of  read  selects. 

All  of  these  1-0  tables  must  be  examined  and  made 
to  conform  to  the  installation  1-0  configuration. 

D.  ERROR  MESSAGES 

Due  to  a  number  of  possible  causes  such  as  illegal  tape 
designation,  the  word  '’ENDTPE"  entering  SYSFAZ,  etc,,  the 
message: 


PROGRAM  'XXXXX7 J  IS  NOT  ON  SYSLB2  .  .  .  SORRY 
is  printed  on-line,  followed  by  a  dump.  If  the 
arguments  look  all  right,  the  cell  SYSFAZ  should  bo 
examined. 

If  the  main  link  record  Is  still  redundant  after  10  tries, 
the  message; 

REDUNDANCY  READING  SYSLB2  .  .  .  SEARCH  DISCONTINUED  is 
printed  on-line,  followed,  by  a  dump. 
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SECTION  VII 
SUBSYS  SUBROUTINES 


A.  INTRODUCTION 

The  following  is  an  example  of  how  SUBSYS  was  imple¬ 
mented.  It  describes  the  subroutines  which  were  added  to 
the  MAGIC  System  for  SUBSYS  control.  The  Overlay  chart, 

B,  should  replace  Figui-e  1.7  in  Appendix  I  for  SUBSYS 
control. 


STRUCTURAL  SYSTEM  OVERLAY  CHART 
(when  using  SUBSYS) 


FIGURE  1.1  CONTROL  SECTION 


LIST  OP  SUBSYS  SUBROUTINE  FUNCTIONS 


•USSR04.  (Main  deck)  Control  reset  of  system  para¬ 
meters*  call  SEXEQ  and  return  control  to 
BFMTII 

SRESET  Reset  system  input  unit,  system  output  unit 

maximum  matrix  limit,  size  of  work  area, 
print  control  and  re-establish  blank  common 
area 

SEXEQ  Read  and  interpret  .USER04.  instruction 

and  pass  control  to  US04 


a, 
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SUBROUTINE  DOCUMENTATION  FOR  SUBSYS 


1.  Subroutine  Name:  USER04  (Main  Deck) 

2.  Purpose:  Provide  main  deck  control  under  SUBSYS 
implementation 

3.  Equation  and  Procedures:  Logical  variable  ERROR  is  set 
to  false.  Subroutine  SRESET  is  called  to  reset  system 
parameters.  Subroutine  SEXEQ  is  then  called  to  execute 
the  .USER04.  abstraction  instruction.  SUBSYS  subroutine 
SEARCH  is  then  called  to  return  to  the  BFMTII  program. 

4.  Input  Argument:  None 

5.  Output  Argument:  None 

6.  Error  Returns:  If  logical  variable  ERROR  is  found  to  be 
true  after  performing  subroutine  SEXEQ,  then  an  error 
message  to  this  effect  is  printed  and  continuation  of 
execution  is  attempted. 

7.  Calling  -Sequence:  None 

8.  Input  Tapes:  None 

9.  Output  Tapes:  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  120g  (8o10). 

12.  Subroutine  User:  None 

13.  Subroutines  Required:  SRESET 

SEXEQ 

SEARCH 


14.  Remarks:  None 


1 .  Subroutine  Name :  SRESET 


2.  Purpose:  Reset  system  parameters  under  SUBSYS  implemen¬ 
tation 

3.  Equations  and  Procedures:  There  are  seven  system  parameters 
which  must  be  reset  due  to  operating  under  SUBSYS .  They 
are: 

il)  NFIT  :  System  input  unit  number 

2)  NPOT  :  System  output  unit  number 

3)  KONST  :  Maximum  matrix  order  capability 

4)  NWORK  :  Number  of  storages  in  work  area 

5}  IFRINT  :  Output  print  control 

6)  WORK  :  Dimensioned  work  storage  area  (to  be  in 
blank  common) 

(7)  NINST  :  Unit  number  containing  instructions 

NINST  is  defined  to  have  a  value  of  one . 

NPIT,  NPOT,  KONST,  NWORK  and  IPRINT  are  reset  by  reading 
them  from  the  return  instruction  on  NINST.  NINST  is 
searched  until  the  return  instruction  is  located,  then 
NINST  is  backspaced  and  the  return  instruction  is  read 
again,  this  time  the  required  system  parameters  are  read, 
thus  resetting  their  values .  The  work  storage  area,  WORK, 
is  allocated  into  blank  common  by  a  COMMON  statement  in 
SRESET . 

4.  Input  Arguments:  None 

5.  Output  Arguments: 

NINST  :  Fortran  logical  unit  number  containing  instructions 
IPRINT  :  Output  print  control 
NP01  :  System  output  unit  number 

6.  Error  Returns:  None 

7.  Calling  Sequence:  (NINST,  IPRINT,  NP01) 

8.  Input  tape:  NINST  -  Abstraction  instruction  input  tape. 

9.  Output  Tapes:  None 

10,  Scratch  Tapes:  None 

11.  Storage  Required:  Total  storage  is  l63g  (11510)  . 

12.  Subroutine  User:  USER04 

13.  Subroutines  Required:  None 

14 .  Remarks :  None 
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1  .  Subroutine  Nsune:  SEXEQ 

2.  Purpose:  Extract  and  separate  the  required  information  from 
the  USER04  instruction  on  the  instruction  tape 

3.  Equation  and  Procedure:  The  USER04  instruction  is  read 
from  the  instruction  tape  into  the  common  work  storage 
area.  From  information  contained  in  the  first  six  words 

of  the  instruction  record  the  succeeding  data  in  the  record 
is  separated  into  its  component  sections  and  placed  into 
the  calling  sequence  to  US04 . 

4  .  Input  Arguments : 

NINST  :  Instruction  tape  number 
IPRINT  :  Output  print  control 

5 .  Output  Arguments : 

ERROR  :  Error  condition  indicator 

6  .  Error  Returns :  None 

7.  Calling  Sequence:  (NINST,  IPRINT,  ERROR) 

8.  Input  Tape:  NINST  -  Abstraction  instruction  tape 

Q  .  Output  Tapes :  None 

10.  Scratch  Tapes:  None 

11.  Storage  Required:  Total  Storage  is  217q  (1361q)  . 

12.  Subroutine  User:  USER04 

13 .  Subroutine  Required :  US04 

14 .  Remarks :  None 
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SECTION  I 


FINITE  ELEMENT  MATRIX  SUBROUTINES  DEFINITION  RULES 


A  subroutine  must  be  generated  which  may  be  used  by  ELPLUG 
in  order  to  generate  the  element  matrices  required  for  finite 
element  analysis  in  MAGIC.  This  module  may  be  written  and 
checked  out  independent  of  MAGIC.  The  checked  out  routines  may 
then  be  added  to  MAGIC  by  following  the  "INSERTION  OF  FINITE 
ELEMENT  MATRICES  INTO  MAGIC",  page  11.10. 

For  purposes  of  clarification,  the  standard  subroutine 
writeup  format  is  used  in  describing  the  necessary  rules. 

This  format  is  similar  to  the  subroutine  writeup  format  used 
in  the  Volume  III  Programmer’s  Manual. 


A.  SUBROUTINE  NAME 

Any  subroutine  name  may  be  chosen.  Later,  when  the 
module  is  inserted  into  MAGIC,  the  name  may  be  changed  tr 
satisfy  ELPLUG  rules. 


B.  PURPOSE 

To  generate  the  finite  element  matrices  required  to 
generate  statics,  stress  dynamics,  or  stability  analysis,  this 
module  must  be  suitable  for  insertion  into  MAGIC. 


C.  EQUATIONS  AND  PROCEDURES 
1.  Equations 

a)  Equations  must  satisfy  the  requirements  and 
assumptions  of  displacement  method  finite 
element  analysis. 

b)  All  matrices  must  be  generated  with  system 
degrees  of  freedom  ordered  according  to  grid 
point,  that  is:  u^v^w^u^v^w^w^v^w^, 

etc.  where  ■  u  for  grid  point  1,  Ug  ■  u 

for  grid  point  2,  etc. 
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c)  The  total  number  of  degrees  of  freedom 

e  NORD  *  number  of  grid  points  x  number  of 

degrees  of  freedom  per  point.  For  example, 

if  an  element  has  u,v,w,  0  .6  ,0  for  each 

a  y  z 

grid  point  and  has  three  grid  points,  then 
NORD  «  6  x  3  »  18. 

2.  Procedures 

a)  Element  material  properties,  element  grid  point 
data  and  geometric  properties  are  supplied  as 
input  through  the  argument  3 1st.  The  form  of 
this  input  is  described  under  nINPUT  ARGUMENTS”. 

b)  Using  matrix  methods,  all  element  matrices 
must  be  generated  in  system  coordinates.  That 
is,  all  transformations  required  must  be  per¬ 
formed  internal  to  the  subroutine.  A  selection 
of  matrix  computations  must  be  supplied,  based 
on  input  selection  controls. 

c)  Output  matrices  are  supplied  to  the  MAGIC  system 
through  the  calling  sequence,  described  under 
"OUTPUT  ARGUMENTS". 

d)  This  module  should  be  checked  out  independent  i.> 
of  MAGIC  and  then  Inserted  Into  MAGIC,  using 
standard  rules  for  insertion. 

e)  General  Flow 
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D. 


INPUT  ARGUMENTS 
1.  Control  Information 


All  suppression  controls  should  be  tested  for  value 
*  0  or  1.  If  the  value  «  0,  do  not  compute  the  appropriate 
matrix.  If  the  value  ®  1,  do  compute  the  matrix. 


IPL 

KK 


Internal  element  identification  number 


Suppression  control  for  element  stiffness 
matrix 


KP 

KS 

KTS 


Suppression  control  for  element  thermal 
and  pressure  load  matrices 


Suppression  control  for  element  stress 
matrix 


Suppression  control  for  element  thermal 
stress  matrix 


KM 

KN 


Suppression  control  for  element  mass  matrix 


Suppression  control  for  element  incremental 
stiffness  matrix 


2.  Dimension  Information 

NNO  «  Number  of  grid  points  on  element 


NORD  «  Total  number  of  degrees  of  freedom 
of  stiffness  matrix 


order 


3. 


Grldpoint  Coordinate  Data 
XC 


X  coordinates  of  element  gridpoints  of 
length  NNO 


YC 

ZC 


Y  coordinates  of  element  gridpoints  of 
length  NNO 


Z  coordinates  of  element  gridpoints  of 
length  NNO 
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gamuts 


TO  ■  Grid  point  temperatures  for  element  of 
length  NNO 

PC  «  Grid  point  pressures  for  element  of 
length  NNO 


Material  Property  Input 


These  properties  are  input  temperature  interpolated 
element  related  material  properties  stored  in  a  one-dimensional 
array:  MAT-  This  array  was  generated  in  ELEM  by  computing  .the 
effective  element  temperature  and  then  interpolating  the 
material  file  tables  for  necessary  values. 

a)  MAT  Array  -  MAT(l)  contains  temperatures  at 
which  variables  wil3  be  interpolated: 


i) 


Elastic 

Properties 

MAT(2) 

Ex 

MATO) 

Ey 

MAT.O) 

Ez 

MAT ( 5 ) 

Yxy 

MAT(6) 

Yyz 

MAT(7) 

Yzx 

MAT(8) 

°x 

MAT(9) 

°y 

MAT (10) 

°z 

MAT  ( 11 ) 

Gxy 

MAT (12) 

°yz 

MAT (13) 

°zx 

MAT (14) 

-  MAT ( 21) 

} 

1 

1 


Young’s  Modulus 


Poisson’s  Ratio 


Thermal  Coefficients 
of  Expansion 


Shear  Modulus 


iii)Other  Parameters 


MAT{22) 
MAT (23) 
MAT (2  JO 


Mass  Density  -  DENSTY 

Option  for  element  print  -  WIPR 

Initial  temperature  -  TZERO 


E. 


OUTPUT  ARGUMENTS 


All  symmetric  arrays  are  stored  such  that  only  the  lower 
half  is  stored  by  rows  in  single  subscripted  form. 


1.  Control  Information 

NERR  *  Error  set  control  (described  under  ERROR 
RETURNS). 


2.  Dimension  Information 

NOINK  «  Number  of  words  in  symmetric  matrix 
NORD  x  (NORD+D/2 

NRSEL  *  Number  of  stress  -components  *  number 
of  rows  .In  stress  matrix 

NSEL  *  Number  of  words  in  stress  matrix 
«  NRSEL  •  NORD 

NMASS  *  Number  of  words  in  mass  matrix. 


3.  Output  Element  Matrices 

a)  Stiffness  Matrix  -  AKEL  *  Singularly  subscripted 
array  which  represents  storage  of  length 

(NORD  x  (N0RD.+1)  )/2.  Elements  of  lower  half 
of  symmetric  matrix  oT  order  NORD  x  NORD  must 
be  stored  in  system  coordinates.  The  com¬ 
putation  of  this  matrix  should  be  suppressed 
if  KK  -  0. 

b)  If  KF  *  1,  compute  FTEL  «  thermal  +  pressure 
element  load  matrix  column  of  order  NORD  x  1. 

c)  If  KS  ■  1,  compute  SEL  *  stress  matrix  of 

c  order  (NRSEL  x  NORD)  where  NRSEL  »  number  of 

stress  components. 

d)  If  KTS  *  1,  compute  thermal  stress  matrix 
■  STEL  *  NRSEL  x  i  matrix  column. 

e)  If  KM  *  1,  qompute  MASS  matrix  in  same  form  as 
stiffness  matrix. 
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f)  NOINK  ■  number  of  storages  for  stiffness 
matrix. 

g)  NRSEL  *  number  of  stress  points  on  stress 
matrix. 

h)  NMASS  ■  number  of  storages  for  mass  matrix. 
If  rto  mass  matrix  exists,  set  NMASS  »  1. 


4.  EXTRA 

EXTRA  *  a  total  of  5  input  element  properties  is 
possible  ns  input  to  MAGIC.  Element  thicknesses  or  other 
geometric  properties  are  obtained  from  this  array. 


F.  ERROR  RETURNS 

Set  NERR  *  0  if  no  error 

Set  NERR  «  1  if  finite  element  number  (IPL)  is  incorrect 
Set  NERR  ■  2  if  number  of  Nodes  (NNO)  is  incorrect 
Set  NERR  ■  3  If  order  of  matrix  «  NORD  is  Incorrect. 


G.  CALLING  SEQUENCE 

Call  (Subroutine  Name)  (IPL,NNO,NORD,KK,KF,KS,KTS,KM, 

KN , XC , YC , Z  C , TC , PC , MAT , EXTRA , NOINK , NRSEL , NSEL , NMASS , 
AKEL , FTEL , SEL , 3TEL , AMASS , NERR) 


H.  STORAGE 

All  singular  subscript  arrays  should  be  dimensioned  (1). 
SEL  must  be  dimensioned  (NRSEL jNORD) . 


I.  SUBROUTINE  USER 

ELPLUG  must  be  updated  to  accept  this  routine.  "INSERTION 
OF  FINITE  ELEMENT  MATRICES  INTO  MAGIC”  should  be  consulted  for 
the  changes  necessary  to  ELPLUG  and  MAGIC. 


J.  SUBROUTINES  USED 

Any  subroutines  may  be  used  and  written  for  use  in  this 
routine. 
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SECTION  II 


INSERTION  OF  FINITE  ELEMENT  MATRICES  INTO  MAGIC 


As  MAGIC  is  a  General  Purpose  Structural  Analysis  Program, 
certain  sections  can  be  considered  as  modules.  Revisions  to 
the  program  is  accomplished  by  insertion  of  new  subroutines 
or  modules.  This  concept  of  inserting  or  "plugging”  finite 
element  matrices  into  a  program  was  originally  a  concept  in 
1956  of  Turner  of  Boeing.  Thus  the  term  "plug"  means 
inserting  different  finite  element  equations  into  MAGIC. 


Revisions  to  MAGIC  Include  the  Following: 


A.  Revisions  to  .USERO^J.  Module 

B.  Revisions  to  STRESS  Module 

C.  Revisions  to  FORCE  Module 

D.  Revisions  to  EPRINT  Module 

E.  Revisions  to  OVERLAY  of  Program 

F.  Revisions  to  the  Plug  Subroutines  Themselves. 


REVISIONS  TO  .USER04.  MODULE 


1.  Subroutine  ELEM 

a)  Revise  the  "Table  of  Contents"  of  elements, 
if  necessary.  Consult  current  listing  for 
present  form. 

b)  Refer  to  "REVISIONS  TO  ELEM  AND  FELEM"  in 
order  to  update  the  DATA  and  DIMENSION 
statements  for  the  arrays: 

NUMOLD 

IPLNO 

NDSEL 

c)  Increase  the  value  of  NUMPLG  by  +1  for  each 
plug  added. 


2.  Subroutine  FELEM 

a)  Update  the  "Table  of  Contents"  of  elements, 
if  necessary.  See  Table  I. 

b)  Revise  the  data  statement  for  the  NEWNUM 
array,  if  necessary.  Refer  to  "REVISIONS 
TO  ELEM  AND  FELEM",  page  551. 


3.  Subroutine  ELPLUQ 

a)  Modify  the  computed  GOTO  statement  so  that 
control  passes  to  statement  number  MNOO  when 
IPL  assumes  the  value  MN.  (NOTE:  MN  is  the 
one  or  two  digit  plug  number.) 

b)  Insert  the  CALL  PLUGMN  with  appropriate  calling 
sequence  at  statement  number  MNOO. 

c)  Insert  instructions  to  bypass  the  grid  point 
axis  transformation,  if  necessary.  These 
transformations  must  be  skipped  in  ail  plugs 
which  handle  grid  point  axis  transformation 
inside  the  plug  itself. 


B.  REVISIONS  TO  THE  STRESS  MODULE 


1.  Subroutine  STRES2 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all 
the  element  types  available  to  the  MAGIC 
system. 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c)  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS 

-  array . 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  heading  for  the  stresses  of  that  particular 
element  type.  The  statement  number  to  trans¬ 
fer  to  is  calculated  by  IPL*1000. 

e)  Add  the  WRITE  statement  with  format  number 
IPL*1000+1.  Then  define  the  following 
variables: 

i)  NSC  «  the  number  of  stress  components 
for  this  element 

li)  IPMT  «  the  updated  value  of  NPLUGS 
iii)  KFMT  »  1,2,3*  **  or  n  depending  on  the  format 
needed  to  write  out  the  stress  values. 
The  actual  format  will  be  discussed 
in  Section  V. 

f)  Add  the  statement  GOTO  320. 

g)  The  heading  printed  out  for  the  stresses  of  this 
element  should  conform  to  the  format  of  all  the 
other  headings. 
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REVISIONS  TO  THE  FORCE  MODULE 


1.  Subroutine  FORCE2 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all 
the  element  types  available  to  the  MAGIC 
system. 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c)  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS  array. 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  heading  for  the  forces  of  that  particular 
element  type.  The  statement  number  to  trans¬ 
fer  to  is  calculated  by  IPL+1000. 

e)  Add  the  WRITE  statement  with  format  number 
IPL* 1000+1.  Then  define  the  following 
variables: 

i)  NFC  ■  the  number  of  components  of  force 
for  this  element 

ii>  IFMT  *  the  updated  value  of  NPLUGS+100 
iii)  KFMT  «  1,2, 3 >4  or  n  depending  on  the 
format  needed  to  write  out  the 
force  values.  The  actual  format 
will  be  discussed  in  Section  V. 

f)  Add  the  statement  GOTO  320. 

g)  The  heading  printed  out  for  the  forces  of  this 
element  should  conform  to  the  format  of  all 
other  headings. 
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D.  REVISION  TO  THE  EPRINT  MODULE  j 

1.  Subroutine  EPRINT  j 

a)  Increase  the  DIMENSION  of  the  array  PLUGS. 

This  array  contains  the  plug  number  of  all  j 

the  element  types  available  to  the  MAGIC 

system. 

} 

b)  Update  the  variable  NPLUGS.  This  variable 
should  be  the  same  as  the  dimension  of  the 
PLUGS  array. 

c)  Add  the  new  element  type  plug  number  to  the 
DATA  statement  which  defines  the  PLUGS  array. 

d)  Update  the  GOTO  statement  which  transfers 
control  to  the  WRITE  statement  which  writes 
the  headings  for  the  stresses  or  forces  of 
that  particular  element.  If  IPRT-1,  then 
net  element  stresses  are  to  be  written.  The 
statement  number  to  transfer  to  is  calculated 
by  600+IPL.  If  IPRT«2  then  net  element 
forces  are  to  be  written.  The  statement 
number  to  bv  transferred  to  is  calculated  by 

700+IPL.  i 

j 

e)  Add  the  WRITE  statement  with  format  number 
800+IPL  for  stresses  and  900+IPL  for  forces. 

For  both  stresses  and  forces  define  the 
variables: 

i)  NC  ■  number  of  stress  or  force  components 

ii)  IFMT  »  the  updated  value  of  NPLUGS  for 

stresses  and  for  forces  it  equals 
NPLUGS*100. 

iii)  KFMT  «  1,2,3#^  or  n  depending  on  the 

format  needed  to  write  out  the 
stress  and  force  values.  The 
actual  format- is  discussed  under 
STRPRT  revisions  below. 

f)  Add  the  statement  GOTO  200. 

g)  The  headings  to  be  printed  should  be  exactly 

the  same  as  those  written  in  subroutines  STRES2  j 

and  F0RCE2 . 


Subroutine  STRPRT 


Subroutine  STRPRT  is  called  by  STRES2,  FORCE 2 ,  and 
EPRINT . 

a)  This  routine  contains  the  format  statements 
necessary  to  write  the  stress  or  force  values. 

At  present,  there  are  four  different  formats 
available,  defined  by  FMT1,  FMT2 ,  FMT3  and  FMTH. 
The  value  of  KFMT  as  defined  in  STRES2 ,  F0RCE2 
and  EPRINT  will  point  to  one  of  these  formats. 

If  any  of  the  present  formats  are  not  applicable 
for  the  printing  of  the  values  of  a  new  element 
type  then  the  following  must  be  done. 

i)  Define  a  new  format  statement  in  a  DATA 
statement.  Give  it  the  name  FMTn.  Set 
KFMT-n. 

ii)  DIMENSION  this  format. 

ill)  Update  the  GOTO  statement  which  transfers 
to  the  WRITE  statement  which  uses  the  new 
FORMAT  FMTn.  .alculate  the  statement 
number  by  KFMTi100. 

b)  The  column  headings  that  are  to  be  printed  for 
the  new  stresses  and  forces  must  also  be  added 
to  this  routine.  Update  the  GOTO  statement 
which  transfers  control  to  the  correct  WRITE 
statement.  For  stresses,  the  statement  number 
is  IPL*1000  and  the  format  number  of  the  write 
statement  is  IPL*1000+1.  For  forces  the  state¬ 
ment  number  is  IPL*1000+3  and  the  format  number 
is  IPL*100+2. 

c)  The  FORMAT  statement  which  contains  the  headings 
for  the  columns  should  follow  a  format  similar 
to  those  already  included  in  the  routine. 


E. 


REVISIONS  TO  OVERLAY 


The  overlay  will  have  tc  be  revised  whenever  new  sub¬ 
routines  are  added  to  MAGIC.  This  overlay  structure  may  be 
a  function  of  the  particular  version  on  a  particular  machine. 
There  is  no  standard  procedure  but  a  general  guideline  is 
available:  NEWPLUGS  may  be  placed  on  new  links  which  are  on 
the  same  le^el  as  existing  plugs  since  only  one  plug  will  be 
necessary  in  core  at  one  time. 
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PLUGS  AND  SUBROUTINE  CHANGES 


1.  Obtain  listing  of  PLUG  which  has  been  written  and 
checked  out  by  following  the  rules  under  "Finite 
Element  Matrix  Subroutine  Definitions  Rules", 
page 


2.  Equivalence  all  working  dimensions  to  WORK  storage 
by  referring  to  "Equivalence  of  Local  Work  Areas 
in  MAGIC",  page 


3.  Insert  this  card  immediately  after  the  subroutine 
PLUGMN  statement: 

COMMON  NPIT, ♦, KONST, DUMMY ( 7097 ) » 

WORK(NLAST) 

When  NLAST  is  defined  as  the  last  location  of  the 
WORK  storage  array  referenced  in  Item  (2)  above. 


4.  REPEAT { 3 )  above  for  every  subroutine  used  by  PLUGMN. 
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G.  CHECKLIST  TABLES  FOR  USE  IN  INSERTION 

This  table  contains  all  of  the  revisions  listed.  These 
tables  should  be  used  In  order  to  be  sure  that  all  steps  have 
been  completed. 

When  revised  item  has  been  completed,  write  an  X  in  the 
space  provided. 

A.  .USER  0^1. 

1.  Subroutine  ELEM 

a.  Revise  the  "Table  of  Contents'*  _ 

(1)  REVISED  _ 

(2)  No  Revision  Necessary  _ 

b.  Revise  NUMOLD 

(1)  DATA  Statement  _ 

;2)  DIMENSION  Statement  _ 

Revise  IPLNC 

(1)  DATA  Statement  _ 

(2)  DIMENSION  Statement  _ 

Revise  NDSEL 

(1)  DATA  Statement  _ 

(2)  DIMENSION  Statement  _ 

c.  Increase  NUMPLUG  by  +1  _ 

2.  Subroutine  FELEM 

a.  Table  of  Contents  Revision  _ 

b.  NEWNUM  Array  Revision  _ 

3.  Subroutine  ELPLUG 

a.  Computed  GOTO  Statement  NO.  _ _  _ 

b.  Call  PLUGMN  -  Plug  No.  _  _ 

c.  Grid  Point  Axis  Transformation 

(1)  Included  Inside  PLU',  _ 

(2)  Not  Included  Insiae  PLUG  _ 


STRESS  MODULE 


1.  Subroutine  STRES2 

a.  Increase  dimension  of  PLUGS 

b.  Update  NFLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  GOTO  Statement  for  Element 
Stress  Headings 

GOTO  Statement  No.  _ 

e.  Add  WRITE  Statement 
Redefine: 

(1)  NSC 

(2)  IFMT 

(3)  KFMT 

f.  Add  statement  GOTO  320 

g.  Insert  New  Heading  for  Stress  Print 

FORCE  MODULE 
1.  Subroutine  F0RCE2 

a.  Increase  Dimension  of  PLUGS 

b.  Update  NPLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  QOTO  Statement  for  Element 
Force  Headings 

GOTO  Statement  No.  _ 

e.  Redefine: 

(1~)  NFC 

(2)  JFMT 

(3)  KFMT 

f.  Add  Statement  GOTO  320 

g.  Insert  New  Heading  for  FORCE  Print 
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D.  EPRINT  MODULE 


1.  Subroutine  EPRINT 

a.  Increase  Dimension  of  PLUGS 

b.  Update  NPLUGS 

c.  Update  PLUGS  DATA  Statement 

d.  Update  GOTO  Statements  for  Element 
Stress  and  Force  Headings 

e. '  Add  WRITE  Statements 

Redefine:  - 

(1)  NC 

(2)  IFMT 

(3)  KFMT 

f.  Add  Statement  GOTO  200 

g.  Insert  Headings  which  are  same  .as  for 
STRES2  and  FORCE? 

2.  Subroutine  STRPRT. 

a.  Define  FMTn  DATA  Statement 
Set  XFMT-n 

Dimension  FMTn 

Update  GOTO  Statement 
GOTO  (KFMT* 100)  .  .  . 

b.  Update  FORMAT  and  GOTO  Statements 
for  Print  of  Column  Headings 

STRESSES: 

c Format  Ho.  (IPL*1000+1)  _ 

GOTO  (IPL*1000)  _ 

FORCES: 

Format  No*  (IPL*l000+2) _ 

GOTO  (IPL* 1000+3)  ~  ■ 
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REVISIONS  TO  OVERLAY 
1.  Revise  OVERLAY  of  Program 

PLUGS  AND  SUBROUTINE  CHANGES 

1.  Set  up  and  Checkout  PLUG  Subroutines 

2-  Equivalence  WORK  Storage 

3.  insert:  COMMON  NPIT,#, KONST, DUMMY, WORK 
in  all  Subroutines 


SECTION  III 


REVISIONS  TO  ELEM  AND  FELEM 


A.  REVISIONS  TO  FELEM 

1.  Defining  NEWNUM  (contained  in  FELEM) 

The  logical  grouping  of  elements  selected  for  MAGIC 
is  shown  in  Table  I.  The  "plug"  numbers  are  shown  in  Table  I 
also.  Using  Table  I  as  a  reference,  the  MAGIC  numbering 
system  is  arranged  in1  ascending  order,  Inserting  a  zero  for 
an  unidentified  element.  This  results  in  data  for  a  NEWNUM 
array  shown  in  Table  II.  Referring  to  Table  I  and  Table  II, 
let  I  *  plug  number,  J  ■  MAGIC  (NEWNUM).  Then  the  array 
NEWNUM  is  defined  by:  NEWNUM(J)  -  I.  NUNUM  only  must  be 
revised  if  new  group  is  added. 


B.  REVISIONS  TO  ELEM' 

1.  Defining  NUMOLD 

At  a  given  point  in  time,  NUMOLD  is  shown  in  Table  III. 
It  is  defined  by  the  following:  NUMOLD(I)  »  J.  When  I  and  A 
above  have  the  same  meaning  as  in  (A)  above,  NUMOLD  must  be 
revised  where  a  new  plug  is  added. 

2.  Defining  IPLNO 

IPLNO  represents  the  group  number  of  existing  MAGIC 
elements  and  must  be  extended  for  any  new  element  matrix  set. 
This  array  represents  the  NUMOLD  array  after  zeros  have  been 
deleted. 


3.  Defining  NDSEL 

NDSEL  represents  the  number  of  stress  points  coded  for 
existing  elements  in  MAGIC.  This  number  Is  the  one  actually 
coded  in  the  plug  and  corresponds  to  NRSEL  described  under 
reference  ^Definition  of  Calling  Sequence  for  ELEMENT  Matrix 
Subroutines." 
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For  example,  referring  tc  Table  I,  if  a  sandwich 
plate  is  to  be  added,  I  ■  18,  J  «  28 j  that  Is,  PLUG  18 
representing  group  No.  28  is  to  be  added.  Suppose  that  only 
stress  points  are  considered  for  this  element.  Then  the 
. evised  statements  and  arrays  are  shown  in  Table  111(A). 


TABLE  I 

TABLE  OP  CONTENTS  FOR  FELEM  ELEMENT  DESCRIPTION 


J 

I  MAGIC  NUMBER 

PLUG  (NEWNUM)  NODES  DESCRIPTION  OF  ELEMENT 


1 

21 

8 

Quadrilateral  Shell 

2 

20 

6 

Triangular  Shell 

3 

22 

3 

Triangular  Plate  of  Constant  Stress 

4 

23 

4 

Quadrilateral  Plate  of  Constant 
Stress 

5 

30 

2 

Torodial  Ring 

6 

40 

3 

Triangular  Ring 

7 

11 

3 

Jrame 

8 

41 

4 

Trapezodial  Ring 

9 

42 

1 

Core  (Ring) 

10 

50 

4 

Tetrahedron 

11 

24 

4 

Shear  Panel  (Translation  Only) 

12 

26 

3 

Sandwich  Plate 

13 

51 

6 

Triangular  Prism 

14 

25 

4 

Shear  Panel  (Translation  and 
Rotation) 

15 

10 

2 

Axial 

16 

12 

3 

Stiffener 

17 

27 

3 

Triangular  Plate 

18 

28 

4 

Quadrilateral  Plate 

19 

43 

2 

Truncated  Cone 

20 

52 

8 

Rectangular  Prism 

22 

13 

- 

Incremental  Frame 

Example 

for  the  "Quadrilateral  Plate": 

I  « 

Plug  No. 

■  18 

J  - 

Group  No. 

-  28 
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table  II 

NEWNUM  DATA  STATEMENT  IN 
SUBROUTINE  FELEM 


DIMENSION  NEWNUM (5a) 

DATA  NEWNUM/ 

1  o»o,b,o, 0,0, 0,0,0 

2  ^5 ,7, -16, 22, 0,0, 0,0,0,  q 

3  2»1»3,^, 11,1^,12,17,18,0 

*  5, 0,0,0, 0,0,0, 0,0,0 

5  6*8,9, 19^0, 0,0, 0,0,0 

*  10,13,20,0,0,0,0,0,5,0/ 
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TABLE  III 


DATA  STATEMENTS  IN  SUBROUTINE  ELEM 


These  tables  represent  MAQIC  with  the  following  plug  numbers: 
1,2,4,5,6,14,17,18 


(a)  DIMENSION  NUMOLD  (17) 

DATA  NUMOLD  /21, 20, 0,0, 30, 40, 11*0,0, 

0,0,0,0,25,0,0,27,/ 


(b)  DIMENSION  IPLNO  (7) 
DATA  IPLNO 


/21, 20, 30, 40,11,25, 27/ 


(c)  DIMENSION  NDSEL  (7) 
DATA  NDSEL 


/40, 32,15, 4, 12, 1,8/ 
NUMPLQ  -  7 


TABLE  III (a) 


Represents  NUMOLD,  IPLNO  and  NDSEL  after  addition  of  quadrl~ 
lateral  plate  (example): 


(a)  DIMENSION  NUMOLD  (18) 

DATA  NUMOLD 

(b)  DIMENSION  IPLNO  (8) 

DATA  IPLNO 


/21, 20, 0,0, 30, 40, 11, 0,0 
0,0,0,0,25,0,0,27,28/ 


/21, 20, 30, 40, 11, 25, 27, 28/ 


(c)  DIMENSION  NDSEL  (8) 

DATA  NDSEL  /40, 32, 15, 4, 12, 1,8, 5/ 

NUMPLQ  -  8 
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SECTION  IV 


EQUIVALENCE  OP  LOCAL  WORK  ARRAYS 


The  MAGIC  System  uses  a  large  area  of  blank,  common  to 
store  all  temporary  and  work  arrays  for  the  .USER04.  module. 
The  array  Is  set  up  In  routine  ELPLUG  and  modified  in  each 
of  the  plugs.  All  local  arrays  used  by  subroutines  called 
by  a  plug  may  be  defined  in  this  large  common  area  by  an 
equivalence  statement  in  the  plug.  Thus  no  additional  storage 
is  required  after  the  common  work  array  has  been  defined. 

NWORK  «  the  maximum  number  of  WORK;  storages  available 
to  the  MAGIC  System.  The  value  of  this"  parameter  is  set  in 
the  MAGIC  routine  MRES. 

NLAST  *  NWORK  -  709 6  «  total  number  of  work  storages 
available  for  equivalence  of  local  arrays. 


A.  WORK  ARRAY  EQUIVALENCES  FOR  PLUG  SUBROUTINES 

1.  Obtain  "plug*  listing,  with  array  map. 

2.  Check  argument  list  of  plug  and  determine  dimensional 
arrays  which  appear  in  argument  list.  These  arrays 
are  not  local  to  plug  and  therefore  should  not  be 
equlvalenced. 

3.  Remaining  arrays  must  now  be  equivalent  to  work 
array  in  plug.  All  these  arrays  are  local  to 
plug  Itself. 

4.  Check  dimension  statement  and  equivalence  of  all 
these  local  arrays  successively. 

5.  Now  search  through  all  array  maps  of  subroutines 
called  by  plug  and  place'all  arrays  local  to  the 
called  subroutines  (which  are  dimensioned  10  or 
above)  in  the  argument  list.  Equivalence  these 
arrays  to  the  work  array  in  the  plug  itself.  Enter 
the  appropriate  dimension  statement  in  the  plug. 

6.  Now  check  equivalence  storage  map  and  equivalence 
-the  longest  number  of  each  equivalence  group  to 

the  next  available  location  of  WORK.  Enter 
dimension  statements  if  necessary.  Leave  the 
original  equivalence  statements  in. 
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7.  See  the  following  example  where  subroutines  SUB1, 
SUB2,  SUB3  with  local  arrays  LI,  L2,  LOC,  EXTRA 
are  to  be  called  by  PLUGX.  For  this  examp1:.- 
NWORK  -  13000.  NLA ST  -  1300  -  7096  «  5900. 


PLUGX ( AMASS, STRESS, FTEL, ETC.  ) 


COMMON  NPIT , NPOT , KONST , DUMMY ( 7  097 ), WORK ( 590*0 
DIMENSION  LI (50),  L2(*I20),  LOC  (100),  EXTRA (300) 
EQUIVALENCE  (W0RK(1) ,L1(1) ) 

"  (WORK (5l) ,L2(1) ) 

"  (W0RK(131) ,L0C(1) ) 

M  (W0RK( 231), EXTRA (1)) 

"  (WORK(531) ,  -  ) 


CALL  SUB1 
Call  SUB2 
CALL  SUB3 


(AMASS, LI, L 
( STRESS, Loft 
(FTEL, EXTRA 


Arrays  not  used  in  PLUGX 
but  which  are  local  to 
SUB1,  SUB2,  and  SUB3. 
They  must  be  dimensioned 
in  PLUGX. 


Search  all  subroutines  called,  by.  PLUcix  for  local  arrays  and 
put  the  dimension  and  equivalence  in  PLUGX  to  conserve 
storage. 


SUBROUTINE  SUB1(AMASS,L1,L2, . . . ) 
DIMENSION  AMASS ( . . . )  ,L1(50)  ,L2(*»  ,20) 


Two  work  arrays  used  to 
calculate  MASS 


SUBROUTINE  SUB2 (STRESS ,L0C , . . . ) 
DIMENSION  STRESS (...) ,LOC ( 100 ) 


Work  array  used  to 
calculate  STRESS 


SUBROUTINE  SUB3  (FTEL, EXTRA, ... ) 
DIMENSION  FTEL(...),EXTRA(300) 


Work  array 
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COMMON  WORK  AREA  FOR  .USER 04 


1 


1000 


NPIT 

NPOT 

KONST 

t 

DUMMY (997) 

+ 

SEL 

~) 

LISTOL 

SZALEL 

LISTEL 

f 

I 

ETC. 

Area  reserved  for 
element  (plug) 
generated  matrices 
common  to  all  elements 
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